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1.  INTRODUCTION 


1.1  Background 

Mathematical  modeling  and  simulation  of  biomechanical  system  crash 
response  play  an  economical  aiw>  /ersatile  role  in  the  understanding  of 
injury  mechanisms.  In  quantitative  gross  biodynamic  motion  studies, 
cognizant  of  the  high  cost  of  conducting  experimental  research  with  human 
cadavers  and/or  anthropomorphic  dummies,  biomechanicians  have  turned 
their  attention  to  the  utilisation  of  computer-based  mathematical  models 
of  the  total  human  body  since  the  advent  of  high  speed  computer 
technology.  Among  these  models,  the  most  popular  and  sophisticated 
versions  are  articulated  and  multisegmented  to  simulate  the  total  human 
body  as  a  linked  structure  made  up  of  rigid  bodies.  Fig.  1.1  shows  a 
typical  three-dimensional  model  consisting  of  fifteen  segments. 
Representative  three-dimensional  models  developed  in  various  research 
centers  include  six-segment  model  of  UMTRI  (formerly  called  RSRI) 
(Robbins  et  al.,  1972),  twelve-segment  models  of  TTI  (Young,  1970)  and  of 
UCIN  (Huston  et  al.,  1974),  and  fifteen-segment  model  of  Calspan  (Fleck, 
1975) .  With  some  additional  features,  the  Calspan  model  is  also  being 
used  by  the  U.s.  Air  Force  under  the  title  of  Articulated  Total  Body 
(ATB)  model  in  aerospace  related  applications. 

In  these  models,  the  equations  of  motion  are  formulated  by  using 
either  the  Newtonian  approach  or  Lagrange's  equations,  Euler's  rigid  body 
equations,  and  Lagrange's  form  or  d'Alembert's  principle  and  solved  by 
various  methods  such  as  Runge-Kutta  or  Predictor-Corrector  numerical 
integration  scheme.  joints  are  modeled  as  either  the  ball-and-socket 
type  with  three  degrees  of  freedom  or  the  hinge  type  with  only  one  degree 
of  freedom.  Resistive  force  responses  beyond  the  joint  stop  contour 
(maximum  range  of  motion)  are  modeled  as  one  or  a  combination  of  the 
following  simple  mechanical  components!  a  linear  spring,  a  non-linear 
spring,  a  coulomb  friction  damper,  and  a  viscous  damper.  Furthermore, 
joint  properties,  i.e.,stop  contours  and  resistive  force  characteristics 
are  estimated  an',  in  some  cases,  even  assumed.  A  thorough  review  of 
both  two-  and  turee-dimensional  mathematical  models  simulating  biodynamic 
response  of  the  human  body  along  with  the  associated  experimental 
validation  studies  performed,  was  provided  by  King  and  Chou  (1976). 
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Obviously i  the  effectiveness  of  these  multisegmented  mathematical 
models  in  accurately  predicting  in-vivo  biodynamic  responses,  depends 
upon  the  individual  segment  properties  such  as  center  of  gravity,  moment 
of  inertia,  geometry,  etc.,  and  more  heavily  upon  the  biomechanical  joint 
properties  between  any  two  linked  segments.  In  particular,  the  resistive 
force  properties  of  the  joints  play  a  direct  and  significant  role  in  the 
understanding  of  injury  mechanisms  as  well  as  in  the  prediction  of 
injury.  Although  a  number  of  studies  have  supplied  data  for  model 
segment  properties  (Hatse,  1980;  McConville  et  al.,  1980),  data  on 
biomechanical  joint  properties  are  comparatively  sparse  (Steindler,  1973) 
and  limited  (Engine  1980;  Engin,  1984).  Of  course,  a  complete  data  base 
for  the  biomechanical  joint  properties  should  undoubtedly  include  a 
statistical  analyst**  to  account  for  the  intra-  and  inter-subject 
variations.  The  more  sound  the  joint  property  data  base  is,  the  more 
realistically  the  multisegmented  anthropomorphic  dummies  and  computer- 
based  mathematical  total-human-body  models  can  be  constructed  and 
formulated. 

1.2  Definitions  of  Joint  Sinus  and  Globographic  Representation 

Throughout  this  dissertation,  the  terms  joint  sinus  and  globographic 
representation  (first  used  by  Dempster,  1965)  will  be  repeatedly  used  in 
the  discussion  of  joint  properties.  Since  these  two  terms  are  not 
commonly  known,  let  us  give  their  definitions  to  avoid  possible 
confusion. 

Joint  Sinus:  the  maximum  range  of  angular  motion  permitted  by  the 
moving  member  of  a  joint  while  the  other  member  is  rigidly  fixed.  The 
joint  should  possess  at  least  two  degrees  of  freedom  such  that  the  moving 
member  sweeps  out  a  conical  concavity  within  which  the  joint  structures 
permit  all  possible  movements. 

Globographic  representation;  a  graphical  method  of  representing  a 
joint  sinus  upon  the  surface  of  a  globe  with  meridians  and  parallels 
which  define  a  grid  pattern  of  the  angular  spherical  coordinates  with 
respect  to  a  fixed  axis  system  attached  to  the  rigidly  fixed  member;  the 
center  of  the  globe  is  positioned  at  the  functional  center  of  the  joint. 

In  this  study,  we  will  also  use  another  method  to  represent  a  joint 
sinus,  namely,  a  single-valued  functional  relationship  between  the  two 

3 


spherioal  angles  of  the  joint  sinus.  While  the  globographic 
representation  provides  a  physically  meaningful  plot  for  the  joint  sinus, 
the  single-valued  functional  relationship  condenses  the  joint  sinus  data 
into  a  functional  expansion  form  for  easy  incorporation  into  the  existing 
three-dimensional  multi segmented  models  of  the  total  human  body. 

1.3  Scope  of  Research 

The  primary  goal  of  this  research  program  is  to  provide/establish 
proper  biomechanical  joint  property  data/databases  pertinent  to  the  human 
shoulder,  hip.  and  humero-elbow  complexes  for  incorporation  into  the 
existing  three-dimensional  multisegmented  models.  A  recently  developed 
new  kinematic  data  collection  methodology  by  means  of  sonic  emitters  and 
a  data  analysis  technique  based  on  selection  of  the  "most  accurate"  axis 
system  from  an  overde terminate  number  of  sonic  emitters  on  the  moving 
segment  (Enginetal.,  1984a)  were  applied  and  extended.  The  passive 
resistive  force  data  were  collected  by  utilizing  a  three-dimensional 
multiple-axis  force  and  moment  transducer  whose  calibration  and 
application  with  sonic  emitters  was  described  i.,i  a  previous  work  (Engin 
et  al.,  1984b).  System  accuracy  of  this  data  acquisition  technique  was 
also  previously  documented  by  per forming  * 

(1)  Error  analysis  on  two  types  of  controlled  linear  translational 
motion;  a  rather  high  degree  of  accuracy  was  attained  (Engin  et  al., 
1984a) . 

(2)  Joint  sinus  simulation  tests  on  a  mechanical  revoluto-hinge  joint; 
even  with  high  degrees  of  acoustic  blockage,  an  average  of  86.51%  of 
the  calculated  joint  centers  fell  within  1.46  cm.  from  the  true 
joint  center  (Engin  and  Peindl,  1986). 

(3)  Forced  abduction  simulation  tests  (sweeping- type  motions)  on  the 
same  mechanical  revolute-hinge  joint;  an  average  of  81.55%  of  the 
calculated  joint  centers  fell  within  less  than  0.5  cm.  from  the  true 
joint  center  (Engin  and  Peindl,  1986). 

The  system  accuracy  tests  described  above,  demonstrate  that  the 
sonic  digitizing  technique  can  be  employed  to  perform  fairly  complicated 
three-dimensional  rigid  body  kinematic  analysis  when  used  in  connection 
with  an  overdeterminate  number  of  sonic  emitters.  In  this  study,  the 
performance  of  the  data  acquisition  system  and  efficacy  of  the  associated 


4 


data  analysis  methodology  is  culminating ly  assessed  by  observing  good 
repeatability  of  the  joint  sinus  sample  means  from  different  runs  on  ten 
subjects. 

Finally*  a  statistical  data  base  for  the  biomechanical  joint 
pope r ties  is  established  in  a  systematic  way  for  a  special  population* 
namely*  the  male  population  of  ages  18  thru  32  possessing  neither 
musculoskeletal  abnormalities  nor  any  history  of  trauma  in  the  joints 
studied  herein.  Ten  subjects  were  randomly  chosen  to  form  the  sample 
with  emphasis  placed  on  choosing  subjects  whose  anthropometry 
approximates  the  average  for  the  above-defined  population.  Selected 
anthropometric  measurements  of  these  subjects  are  given  in  Appendix  A. 
The  sample  mean  and  sample  standard  deviation  as  well  as  the  confidence 
intervals  for  the  population  mean  and  population  standard  deviation  were 
obtained  in  a  systematic  way  and  were  expressed  in  functional  expansion 
form  relative  to  a  locally-defined  joint  axis  system  as  well  as  relative 
to  the  fixed-body  axis  system  in  the  form  of  globographic  representation. 
It  is  believed  that  this  is  the  first  attempt  to  establish  a 
statistically  meaningful  data  base  for  the  biomechanical  properties  of 
the  major  human  articulating  joints  for  the  purposes  of  incorporation 
into  the  multisegmented  mathematical  models  of  the  total  human  body. 
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2.  K IRSHAT ICS  BY  MEANS  OP  AN  OVBRDBTERMINATE  NUMBER  OP  SONIC  EMITTERS 


In  this  chapter,  we  shall  discuss  the  general  approach  to  studying 
the  three-dimensional  Kinematics  of  a  typical  joint  complex,  which  links 
two  body  segments,  by  means  of  an  overdeterminate  number  of  sonic 
emitters.  The  following  chapters  will  apply  this  methodology  to 
determine  the  maximum  voluntary  ranges  of  motion  and  passive  resistive 
properties  beyond  them  for  the  shoulder,  hip.  and  humero-elbow  complexes. 

2.1  Review  of  the  Sonic  Digitising  Technique 

Sonic  digitising  is  the  process  of  converting  information  on 
position  via  sound  waves  to  digital  values  in  a  form  suitable  for  data 
transmission,  storage,  and  processing.  The  sound  waves,  which  are  audible 
impulses  of  a  specific  frequency,  are  generated  by  an  electrical  arc  at 
the  tip  of  the  emitter  powered  by  the  GP6-3D  Sonic  Digitiser  manufactured 
by  Science  Accessories  Corporation.  "Point"  microphone  sensors  capable 
of  detecting  this  specific  frequency  of  sonic  impulses  are  used  to  receive 
the  sound  waves.  By  multiplying  the  transit  time  required  for  a  sound 
wave  to  reach  a  microphone  sensor  with  the  speed  of  sound  in  still  air. 
the  sonic  digitiser  converts  the  distance  from  the  emitter  tip  to  the 
"point"  microphone  sensor  (to  ba  referred  to  as  slant  range  distance) 
into  digital  values.  These  digits  are  then  transmitted  to  a  PDP-11/34 
minicomputer  for  data  analysis  and  storage. 

By  applying  this  sonic  digitising  principle,  a  rigid  planar 
rectangular  sensor  board/assembly  with  four  "point"  microphones/sensors 
(A,  B,  C,  D)  arranged  at  the  corners,  as  shown  in  Fig.  2.1,  was 
constructed  (Engin  and  Peindl,  1985) .  Thi  purpose  of  this  set-up  is  to 
convert  the  four  slant  range  distances  of  a  sonic  emitter,  which  defines 
a  point  in  the  3-D  space,  into  regular  Cartesian  coordinates  suitable  for 
performing  kinematic  analysis.  Note  that  only  three  slant  range 
distances  are  needed  for  the  conversion.  The  fourth  sensor  is  used  for 
spare  purposes.  During  conversion  analysis,  the  computer  program  is 
designed  to  examine  all  four  slant  range  distances,  select  the  three 
smallest,  and  discard  the  fourth.  In  the  special  case  where  one  of  the 
slant  range  distances  is  zero,  namely,  the  sonic  emitter  is  totally 
blocked  from  being  detected  by  one  of  the  four  microphone  sensors,  the 
zero  reading  is  disregarded. 
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Fig.  2.1  Quantities  used  to  convert  slant  range  distances 

(PA*  PB,  PC*  PD)  to  Cartesian  coordinates  (x,  y*  s) 

With  respect  to  the  selected  3—D  coordinate  system  (to  be  referred 
to  as  the  sensor  assembly  axis  system)  as  shown  in  Fig.  2.1*  slant  range 
distances  PA,  PB,  and  PC  will  be  used  to  illustrate  the  conversion 
procedure.  Applying  the  law  of  cosines  to  triangle  APB,  we  have 

(PB)2  -  (PA)2  +  (AB)2  -  2 (PA) (AB)  COSO  (2.1.1) 

where  AB  *  165  cm.  is  a  calibrated  dimension  for  the  sensor  assembly.  We 
also  note  that 

X  -  AH  -  (PA)  COSO  (2.1.2) 


Therefore, 

(PB)2  -  (PA)2  +  (AB)2  -  2 (AB) X 


(2.1.3) 


or. 


x  -  ( (PA) 2  +  (AB)2  -  (PB)2]/2(AB) 


(2.1.4  ) 
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Similarly,  by  applying  tha  law  of  ooainaa  to  triangle  APC#  ona  obtains 

y  »  AB  •  [ CPA) 2  ♦  (AC)2  -  (PC)21/2(AC)  (2.1.5) 

whare  AC  *  110  cm.  is  also  a  cal  i  bra  tad  dimension  for  the  censor 
assembly.  Finally#  one  obtains  tha  a  coordinate  by 

a  -  PP*  -  I (PA)2  -  (x2  ♦  y2))1^2  (2.1.6) 

In  like  manner#  similar  aquations  for  x#  y#  and  a  can  be  written  for  any 
combination  of  three  slant  range  distances. 

2.2  Moving  Rigid-Body  Kinematics  and  Initialisation 
of  a  Baseline  Data  Sat 

Consider  a  typical  joint  complex  connecting  two  body  segments.  In 
order  to  facilitate  the  relative  motion  studies  between  the  two  body 
segments#  one  of  them  is  first  rigidly  fixed.  To  each  body  segment  an 
axis  system  can  than  be  defined  and  affixed  by  mounted  sonic  emitters. 
The  six  degrees  of  freedom  permitted  by  a  general  joint  complex  are 
completely  determined  if  one  point  (e.g.,  the  origin  of  the  moving  body 
axis  system)  on  the  moving  body  and  the  transformation  (direction  cosine) 
matrix  of  the  moving-body  axis  system  with  respect  to  the  fixed-body  axis 
system  are  known.  The  coordinates  of  this  point  determine  the  location 
(three  translational  degrees  of  freedom)  and  the  transformation  matrix 
determines  the  orientation  (three  rotational  degrees  of  freedom)  of  the 
moving  body  segment.  The  orientation  can  be  described  in  various  ways# 
for  example#  (1)  a  set  of  three  successive  rotations  about  the  three  axes 
of  the  fixed-body  axis  system#  (2)  three  Euler's  angles#  and  (3)  a 
rotation  about  an  arbitrary  axis  in  space.  A  detailed  derivation  of  the 
transformation  matrices  resulting  from  the  above  three  ways  can  be  found 
in  Suh  and  Radcllffe  (1978). 

To  define  an  axis  system  affixed  to  a  body  segment#  three 
noncolinear  points  (emitters)  on  or  extended  from  the  body  segment  are 
needed.  Normally,  it  is  desirable  to  select  one  of  the  axes#  e.g.#  the  z 
axis  to  coincide  with  the  longitudinal  axis  of  the  moving  body  segment 
and  the  origin  to  be  a  certain  point  on  this  axis.  We  shall  refer  to 
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this  type  of  axis  systems  as  the  longitudinal  (ot  long- ban*)  axis 
systems.  However,  since  the  sonic  digitising  technique  is  applied  in 
this  study,  total  and  partial  acoustic  blockage  may  occur  to  produce  sero 
and  inaccurate  readings  for  one,  or  two,  or  even  all  three  sonic  emitters 
used.  Hots  that  in  defining  the  fixed-body  axis  system,  this  difficulty 
can  always  be  avoided  by  adjusting  the  sensor  assembly  to  an  optimal 
"view"  of  the  three  eaiitters  since  these  emitters  are  not  moving*  In  the 
case  of  the  moving  body  segment,  it  is  desirable  to  continuously  monitor 
the  moving  body  axis  system  while  performing  joint  property  experiments, 
As  a  result,  total  or  partial  acoustic  blockage  becomes  inevitable  for 
some  "bad"  positions  where  sound  waves  must  travel  around  the  emitters' 
bases  or  the  moving  body  segment  itself.  Therefore,  it  is  necessary  to 
collect  redundant  data  so  that  sero  readings  from  individual  emitters 
would  not  affect  kinematic  analysis.  Obviously,  we  would  select  the 
"most  accurate"  three  emitters  in  cases  where  more  than  three  emitters 
produce  non-sero  readings. 

Prom  experimental  experience,  six  emitters  are  most  suitable  for  the 
redundancy  process.  Seven  or  more  emitters  would  dramatically  increase 
computing  time  without  noticeable  improvements  in  accuracy,  while  four  or 
Five  emitters  do  not  provide  a  sufficient  spare.  Note  that  if  six 
emitters  are  used,  a  total  of  20  (C(6,  3)  ■  ■  jyy )  different  axis  systems 
can  be  constructed!  if  seven  emitters  are  used,  a  total  of  35 
(C (7, 3)  -  — ^yyj-)  different  axis  systems  can  be  constructed. 

It  is  advantageous  to  arrange  the  six  sonic  emitters 
circumferentially  and  more  or  less  equally-spaced  around  the  moving  body 
segment.  (In  reality,  the  six  emitters  ire  first  put  on  an  orthotic  cuff 
which,  in  turn,  is  strapped  circumferentially  to  the  moving  body 
segment).  The  advantage  is  that,  by  doing  so,  we  have  reduced  the  number 
of  "bad"  positions  to  a  minimum  and  also  provided  the  moving  body  segment 
with  the  largest  amount  of  freedom  to  reach  all  allowable  ranges  of 
motion.  However,  such  an  arrangement  of  the  six  emitters  makes  them 
unsuitable  for  direct  construction  of  the  longitudinal  axis  system  as 
normally  desired.  One  way  of  resolving  this  inconvenience  is  to 
establish  the  relationship  (to  be  explained  later)  between  the  six 
emitters  and  the  longitudinal  axis  system  directly  constructed  by  three 
properly  positioned  emitters  before  performing  kinematic  data  collection 


and  analysis.  Since  this  relationship  is  invariant,  i.e.,  it  does  not 
depend  upon  the  orientation/location  of  the  moving  body  segment  or  the 
sensor  assembly,  its  accuracy  can  be  checked  against  pre-calibrated  inter¬ 
emitter  distances  to  within  It  of  error  by  adjusting  the  relative 
orientation  and  location  between  the  moving  body  segment  and  the  sensor 
assembly  to  an  optimal  "view".  This  procedure  is  called  initialisation. 
The  initialised  data  set,  which  is  reliably  accurate,  also  provides  a 
baseline  for  *.he  selection  of  the  "most  accurate”  longitudinal  axis 
systems  (will  be  explained  in  detail  in  the  next  section)  for  the 
continuously  collected  kinematic  data  whose  accuracies  are  uncontrollable 
due  to  partial  and/<  total  acoustic  blockage  and  motion  during  kinematic 
data  collection.  This  baseline  contains  the  Interrelationships  among  the 
six  sonic  emitters  on  the  moving  body.  The  following  explains  how  the 
interrelationships  among  these  nine  emitters  (three  for  defining  the 
longitudinal  axis  system,  six  on  the  moving  body  segment)  are 
initialised. 


First,  the  coordinates  of  the  nine  emitters  are  calculated  in  terms 
of  the  sensor  assembly  axis  system.  Next,  a  total  of  20  axis  systems  ic. 
defined  by  calculating  the  direction  cosine  matrices  A^#(l  <.  i  <.  20)  with 
respect  to  the  sensor  assembly  axis  system  from  all  possible  combinations 
of  any  three  out  of  the  six  moving-body  emitters.  Note  that  these  axis 
systems  can  always  be  obtained  since  all  the  six  emitters  are  arranged  in 
such  a  way  that  no  three  of  them  are  colinear,  i.e.,  three  mutually 
orthogonal  unit  vectors  can  always  be  found.  The  longitudinal  axis 
system  is  similarly  defined  by  calculating  its  direction  cosine  matrix, 
B  ,  with  respect  to  the  sensor  assembly  axis  system.  Next,  the 
transformation  (direction  cosine)  matrix  describing  the  ith  axis  system 


relative  to  the  jth  axis  system  (1  <  i  <  j  <  20)  is  then  calculated  by 


A  A  , 
is  sj 


A.  aT1' 
is  js 


A.  A.  ,  where  A,  and  A.  are  the 
is  js  is  js 


ij 

transformation  matrices  describing  the  ith  and  jth  axis  systems  relative 

to  the  scisor  assembly  axis  system,  respectively.  Note  that  these  190 
20* 

(C(20,2)  «  transformation  matrices  relating  each  of  the  20  axis 

systems  relative  to  every  other  system  are  an  intrinsic  geometric 
property  of  the  six  moving-body  emitters  and  are  independent  of  the 
sensor  assembly  axis  system.  Second,  the  distances  between  the  origins 
of  any  two  of  the  20  axis  systems,  (1  ^  i  <  j  <  20)  are  initialized. 

Obviously,  these  190  scalar  quantities  are  also  intrinsic  and  independent 
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of  the  son  tot  miably  axis  lyatM.  Third*  the  coordinates  (pool  t  Ion 
vectors)  of  tte  origin  of  thi  longitudinal  axis  system  with  raapact  to 
tha  20  noting- body  axis  systems  art  alao  initial!  sad  by  ^  ■  Aia  Ja 
(1  <  i  <  20)*  where  $  ia  tha  position  vector  froa  tha  origin  of  tha  ith 
axis  eysten  to  tha  origin  of  tha  longitudinal  axis  ays  tan  axpraaaad  in 
taraa  of  tha  aanaor  assembly  axis  ayataai.  Kota  that  thaaa  20  vac  tors  ara 
alao  intrinsic  and  indapandont  of  tha  aanaor  asaaably  axis  nyataa  during 
tha  initialisation  proeaaa.  Last*  tha  transforaatlon  natrieaa  of  tha 
longitudinal  axis  ayataai  with  raapact  to  aaeh  of  tha  2Q  aoving-body  axis 
ays  tana  ara  lnitialiaad  by  •  ija  •  B|a  A*#  (1  <  i  <  20),  Hota 
that  thaaa  20  natrieaa  ara  alao  indapandant  of  tha  aanaor  aaaanbly  axis 
ays  tan.  All  tha  initialisad  data  ara  atorad  in  tha  eonputar  and 
ratriavad  for  tha  aalaetion  proeaaa  and  datarnination  of  tha  longitudinal 
axis  syntax  on on  tha  "next  accurate"  moving-body  axis  syntax  ia  salaetad. 

2.3  Salactlon  of  tha  "Host  Aocurata*  Axis  Syntax  on  tha  Moving  Body 

Tha  initialisad  data  sat  diseuaaad  in  tha  previous  a  action  foexs  a 
basal  inn  for  tha  aalaetion  criterion  since  thaaa  data  ara  obtained  in  an 
optlxal  vies  of  tha  aanaor  aaaanbly  and  their  accuracy  can  be  wall 
controlled,  however*  for  a  typical  kinematic  test*  with  tha  Moving  body 
segxent  in  notion*  tha  accuracy  la  uncontrollable .  since  tha  initialised 
data  sat  ia  Indapandant  of  tha  aanaor  aaaanbly  axis  syatax*  it  can  be 
used  for  any  position  and  orientation  of  tha  Moving  body  sagxant  in 
selecting  tha  "most  aoeurata*  Moving- body  axis  syntax  for  datarnination 
of  tha  desired  longitudinal  axis  syntax  which  conveniently  describes  tha 
coxplete  kinematics  of  tha  Moving  body  sagaant.  Tha  sequential  firing 
rata  of  tha  six  noving- body  exit  tar  a  la  sat  at  7  records  par  second*  and 
tha  notion  spaed  of  tha  Moving  body  sagxant  is  Maintained  at 
approxixately  6*  arc/sac.  One  record  is  defined  as  a  coxplete  sequential 
firing  of  all  tha  six  Moving- body  enitters  from  which  one  sat  of 
kinexatlc  data  with  respect  to  tha  fixod  body  axis  systen  is  determined 
through  coordinate  transformation  and  vector  analyses. 

The  choice  of  tha  "aost  accurate*  axis  systen  on  tha  Moving  body 
segment  during  a  kinematic  test  is  aada  on  a  record  by  record  basis.  For 
each  record  of  tha  kinexatlc  data*  tha  coordinates  of  the  six  moving- body 
emitters  (assuming  that  all  of  than  give  good  readings*  i.e.*  none  of 
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ths*  1«  totally  blocked  from  sensor  view)  u«  first  used  to  obtain  tha 
intrinaio  matrix  interrelationship.  between  any  too  of  tha  30  axis  systems 
aa  described  in  tha  Initialisation  prooaaa.  if  thara  vara  no  arrora  in 
tha  kinematic  measurements,  and  tha  orthotie  cuff  r attain*  rigid#  than  we 
should  obtain  tha  equal itiaat 

<Aij* kinematic  "  <Aij> initial  •  °' 

<V  kinematic  **1}’ initial  *  1  (  1  i  i  <  j  <  20  )  (2.3.1) 


and 


^l^klMaatlo  *  '“ij’laitUl  *  “ 

*  ®»1>UUU1  '  0  <  1  <  t  <  1  i  »  )  »*-*-*» 

where  I  ia  tha  3x3  identity  matrix.  This#  however,  is  not  tha  case  for 
a  typical  kinematic  tost  due  to  such  factors  as  notion  during  data 
coll eat ion,  changes  in  tha  ami t tar* a  orientations  with  respect  to  the 
sensor  assembly,  or  tha  partial  acoustic  blockage  of  individual  emitters 
by  the  fixed  body  or  the  moving  body  segment  itself.  Therefore,  we 
obtain  the  following  inequalities* 

^ij*  kinematic  <*ij* initial  “  Gij  **  1  (  1  <  i.  <  j  1  20  )  (2.3.3) 


and 


<Vkin.rn.tic  ’  <V initial  *  6ij  -  0  <  1  1 1  I  20  >  (2*3*4> 

where  is  a  general  matrix  with  off-diagonal  terns,  and  6^  is  an 
apparent  dislocation  (translational  shift)  between  the  origins  of  the  ith 
and  jth  axis  systems.  The  general  matrix  can  be  considered  as  a  rotation 
matrix  describing  an  apparent  rotational  shift  between  the  ith  and  the 
jth  axis  systems  from  their  initialised  interrelationship.  It  should  be 
pointed  out  that  both  the  dislocation  and  rotational  shift  are  a  relative 
measure  of  the  errors  involved.  These  errors  are  not  correctable,  i.e., 
we  cannot  pinpoint  the  absolute  errors.  Nevertheless,  we  have  at  least  a 
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relative  sense  of  how  much  they  art  so  that  we  can  always  select  tha 

"■oat  aocurate"  data  sat.  Therefore,  a  good  ralatlva  indication  oC  tha 

magnitude  of  tha  rotational  shift  Is  to  oonsidar  tha  amount  of  rotation  * 

y^,  introduced  toy  0^  about  an  axis.  To  oaleulata  y^,  wa  notioa  that 

tha  rotation  natrix  dascribing  a  rotation  of  anount  a  about  an  axis 

whosa  oriantation  is  spacifiad  by  tha  diraotion  cosinas  of  a  unit  vector 

u  •  [u  ,  u  ,  uj  is  (8uh  and  Radcllffe,  1971) 

*  y  ■ 

u*(  1-cosa )+cosa  x^Uyd-eoaoJ-u^alaa  u^  ( 1-coao  Hu^aino" 

*  •  «Jtuy(l-cos«)aVina  ^(l-eoso)acoso  ty^d-coesJ-UySina  (2.3.5) 

p 

UgU^d-coaol-UyaiM  yUjd-coaoHUjjaina  u*(l-cosa)«coaa 

Susning  up  tha  diagonal  tarns  of  tha  natrix  R  and  noting  that 
2  2  2 

u  ♦  u  ♦  u  ■  1,  we  obtain 
x  y  • 

a  -  cos"*1  (trR  -  1)]  (2.3.6) 

where  trR  is  the  trace  of  R,  l.e.»  tha  sun  of  all  tha  thraa  diagonal 
terns  of  the  natrix  R.  Applying  this  aquation  to  tha  general  natrix  G^, 
we  find 

Yij  -  cos'"1  [±(tr  G^  -  1)]  -  Yji  (2.3.7) 

Since  the  orthotic  cuff  is  aade  of  rather  rigid  steel  and  during  the 
kinematic  test  there  is  essentially  no  force  applied  on  it,  we  attribute 
both  the  translational  and  rotational  shifts  to  notion  during  the  emitter 
firing  sequence  and/cr  measurement  inaccuracies  due  to  partial  acoustic 
blockage. 

For  each  kinematic  data  record,  if  one  assumes  the  jth  axis  system 
to  be  accurate,  then  the  ith  axis  system  has  obviously  introduced  both 
errors,  i.e.,  6^  and  y^.  If  wa  then  calculate,  for  each  axis  system, 
the  root  mean  square  error,  by  assuming  all  the  other  19  axis  systems 
are  accurate,  as 

vj^i  [  (6ij)2  +  (Yij)2  ]  ^  (l<i<20)  (2.3.8) 

jl*i 
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(Motw  that,  in  thin  equation,  y^  should  bn  thought  of  an  the  arc  length 
obtained  when  y ^  in  Multiplied  by  a  unit  length),  the  axin  ayetea  which 
exhibits  the  saallest  has  obviously  undergone  the  leant  apparent  shift 
(rotational  and  translational)  with  respect  to  all  the  other  axis  system 
as  initialised.  Proa  a  statistical  point  of  view,  this  axis  systea  has 
ttie  highest  probability  of  being  the  aost  accurate  as  coapared  to  the 
initialised  geoaetry. 

For  each  kineaatlc  data  record,  the  *aost  accurate”  axis  systea  on 
the  aoving  body  segaent  is  then  used  to  calculate  the  origin  and  the 
direction  cosine  aatrix  of  the  longitudinal  axis  systea  via  the 
initialised  data,  i.e,,  and  B^.  Or,  stating  it  in  another  aanner,  we 
are  aonitoring  the  desired  longitudinal  axis  systea  via  a  versatile 
aediua,  i.e.,  the  six  eaitters  on  the  aoving  body  segaent. 


3.  BIOMECHANICAL  PROPERTIES  OF  THE  HUMAN  SHOULDER  COMPLEX 


3.1  Introduction 

in  multi segmented  mathematical  models  of  the  total  human  body,  the 
most  complicated  and  least  successfully  modeled  joint  has  been  the 
shoulder  complex  mainly  due  to  the  lack  of  an  appropriate  biomechanical 
data  base  as  well  as  the  anatomical  complexity  of  the  shoulder  region. 
The  term  "shoulder  complex"  refers  to  the  combination  of  the  shoulder 
joint  (the  glenohumeral  joint)  and  the  shoulder  girdle  which  includes  the 
clavicle  and  scapula  and  their  articulations.  Therefore,  in  discussing 
the  joint  sinus  of  the  shoulder  complex,  it  is  more  appropriate  to  use 
the  term  "shoulder  complex  sinus"  to  designate  the  range  of  extreme 
allowable  motion  of  the  humerus  with  respect  to  torso.  It  is  important 
to  make  this  distinction  since  it  is  possible  to  define  joint  sinuses  for 
various  skeletal  components  of  the  shoulder  complex.  An  anatomical 
description  and  a  brief  account  of  studies  on  the  shoulder  complex  was 
provided  by  Bngin  (1980)  and  more  details  can  be  found  in  standard  text 
books  (Steindler,  1973;  Gray's  Anatomy,  1973)  Norkin  and  Levangie,  1983)) 
thus  they  will  not  be  repeated  here. 

3.2  Determination  of  the  Maximum  Voluntary  Shoulder  Complex  Sinus 

The  basic  components  of  the  data  acquisition  system  used  in  the 
study  are  the  sonic  digitizer,  digitizer  sensor  assembly  with  four 
microphones,  torso  restraint  system,  and  the  orthotic  arm  cuff  with  sonic 
emitters  as  shown  in  Fig.  3.1.  The  emitter  positioning  for  the  six  arm 
cuff  emitters  and  the  three  longitudinal-axis-system  emitters  was 
provided  by  Engin  et  al.  (1984a). 

The  procedure  for  determination  of  the  shoulder  complex  sinus 
involves  the  following  basic  steps)  (1)  immobilizing  the  body  segment 
(torso)  to  be  treated  as  the  fixed  body  and  defining  the  fixed  body  axis 
system  as  shown  in  Fig.  3.2(a),  (2)  having  the  subject  move  the  upper  arm 
along  the  maximal  voluntary  range  of  motion  (stop  contour)  and  monitor, 
with  respect  to  the  fixed  body  axis  system,  the  3-D  coordinates  of  a 
distal  point  on  the  moving  body  segment;  this  point  on  the  elbow  joint  is 
selected  as  being  on  the  humeral  longitudinal  axis  at  the  level  of  the 


Fig.  3.1  Subject  in  the  torso  restraint  system  and  the  arm 
cuff  with  six  sonic  emitters 

humeral  condylar  maximal  width,  (3)  fitting  the  3-D  coordinates  to  a 

sphere  using  a  least-squares  technique,  thus  establishing  a  center  for 

the  best-fitted  sphere  and  an  idealized  link  length  (radius  of  the 

sphere),  (4)  fitting  a  plane  to  the  same  3-D  coordinates  using  a  least- 

squares  technique;  the  normal  to  this  plane  (specified  by  the  spherical 

coordinates  (4>  ,  9  )  as  shown  in  Fig.  3.2(b))  establishes  the  pole  of  a 
n  n 

local  joint  axis  system  (Zjt-axis)  about  which  the  shoulder  complex 
sinus,  designated  by  the  spherical  coordinates  (<|>,  0)  of  the  vector 

connecting  the  center  of  the  sphere  with  the  distal  elbow  point,  can  be 
expressed  as  a  single-valued  functional  relationship,  i.e.,  9  ■  0(4>). 
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Sines  the  origin  of  the  fixed  body  axis  system  is  inseoessible,  a 
relative  axis  looator  device  (RALD)  (Engin  et  al. ,  1984)  is  used  to 


Fig.  3.2  (a)  Selected  origin  and  axis  system  (x_.  ,  y..,  z..) 

of  the  fixed  segment  (torso).  1 

(b)  Relative  orientation  of  the  fixed  body  (*fb»  yfb# 
sfb)  and  locally-defined  joint  (Xjt#  y^,  Zjt) 
axis  systems. 


locate  the  origin  and  define  the  tr ana for eat ion  eatrix  of  the  fixed  body 
axis'  system  in  terns  of  the  Microphone /sensor  assembly  axis  system.  The 
accuracy  of  these  data  can  always  be  maintained  within  1%  of  error 
against  pre-calibrated  dimensions  by  adjusting  the  orientation  and 
location  of  the  microphone/sensor  assembly.  Of  course,  this  adjustment 
should  also  take  into  account  the  orientation  and/or  position  of  the  arm 
cuff  in  order  to  obtain  the  best  kinematic  data  even  though  an 
overdeterminate  number  of  sonic  emitters  and  a  "most  accurate"  selection 
criterion  are  used. 

Table  3.1  lists  the  centers  and  radii  of  the  best-fitted  spheres  and 

(^n*  ©n)  as  well  as  their  sample  means  and  sample  standard  deviations  for 

all  ten  subjects.  The  mean  values  for  ($n,  6n)  shall  be  designated  as 

(A  ,  0  )  and  the  corresponding  joint  axis  system  shall  be  referred  to  as 
m  m 

the  mean  joint  axis  system. 

Before  the  test,  each  subject  was  instructed  to  move  his  upper  arm 
along  its  maximum  range  of  motion  boundary  in  a  counterclockwise  motion 
as  viewed  from  the  sensor  assembly.  Be  was  also  instructed  to  displace 
the  arm  distally  along  its  longitudinal  axis  as  far  as  possible  at  all 
times  while  circumscribing  the  joint  sinus.  Preferred  rotation  of  the 
upper  arm  about  its  longitudinal  axis  was  left  up  to  the  discretion  of 
subjects  in  obtaining  the  maximal  contour.  Several  sweeps  of  this  type 
were  performed  before  data  were  collected  so  that  the  subjects  could 
experiment  with  obtaining  the  largest  possible  range  of  motion.  In  order 
to  help  maintain  a  constant  rate  of  motion,  a  large  clock  with  an  easily 
visible  second  hand  was  placed  in  front  of  the  subject.  The  subje'  c  was 
instructed  to  imagine  his  humerus  as  the  second  hand,  and  to  synchronize 
his  joint  sinus  circumscription  with  the  clock's  60  second  sweep.  In 
this  manner,  three  test  runs  (sweeps)  were  collected  for  each  subject. 

To  consolidate  the  enormous  volume  of  experimental  raw  data  into  a 
form  readily  usable  by  the  multisegmented  total-human-body  models 
currently  in  use,  functional  expansions  for  the  shoulder  complex  sinuses 
are  desirable.  This  is  also  the  reason  why  we  want  to  represent  the 
shoulder  complex  sinus  in  a  single-valued  functional  relationship,  i.e., 
8  *  6{$),  with  respect  to  the  locally-defined  joint  axis  system.  It  will 
be  shown  in  Section  3.4  that  the  functional  expansions  also  greatly 
facilitate  the  statistical  analysis. 
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Table  3.1  Centers  and  radii  of  the  best-fitted  spheres  and  (<(>  ,  8  ) 
for  all  ten  subjects  n  n 


SUBJECT 

NO. 

CENTER  (CM) 

xfb  yfb  *fb 

RADIUS 

(at) 

(deg.) 

0n 

(deg.) 

1 

8.85 

14.92 

-26.97 

36.75 

57.37 

72.24 

2 

3.30 

10.01 

-25.25 

35.37 

56.52 

77.32 

3 

5.45 

15.50 

-25.76 

34.19 

S5.51 

91.61 

4 

9.67 

16.75 

-33.67 

36.28 

59.72 

83.20 

5 

2.53 

13.78 

-24.77 

32.09 

58.82 

79.53 

6 

3.78 

15.48 

-25.39 

32.83 

62.58 

77.86 

7 

7.10 

16.51 

-24.68 

32.18 

59.43 

78.87 

8 

4.51 

12.59 

-24.94 

35.25 

57.12 

77.90 

9 

6.88 

17.27 

-24.62 

31.77 

60.98 

84.31 

10 

1.88 

16.25 

-25.85 

33.96 

64.87 

77.93 

Sample 

Mean 

5.40 

14.91 

-26.19 

34.07 

59.29 

79.08 

Sample 

St.  Dev. 

2.66 

2.23 

2.72 

1.81 

2.90 

3.42 

19 


The  following  trigonometric  polynomial,  with  ten  basis  functions, 
initially  proposed  by  Herron  (1974) t 

5 

«(♦)  -  5!  cos""1  ♦(C2n_1  ♦  C2n  sin*)  (3.2.1) 

n*>l 

will  be  used  for  the  functional  expansions  by  the  method  of  least- 
squares.  Ten  was  chosen  for  the  number  of  basis  functions  (or 
coefficients)  and  determined  as  the  smallest  number  for  which  the 
criterion  e  <  0.001eQ  is  satisfied,  where  e  is  the  square  sum  of  curve¬ 
fitting  errors,  0.001  is  the  relative  tolerance  chosen,  and  eQ  is  the 
square  sum  of  the  experimental  data  (6)  values.  A  detailed  discussion  of 
the  above  criterion  can  be  found  in  Beritiss  (1964).  Pig.  3.3  shows  a 
sense  of  how  "well"  the  expansion  of  Eq.  (3.2.1)  fits  the  raw  data  for 
any  of  the  three  sinuses  taken  from  the  sample. 

3.3  Passive  Resistive  properties  Beyond  the  Shoulder  Complex  Sinus 

In  general,  the  passive  resistive  properties  in  an  articulating 
joint  may  depend  on  at  least  three  variables  which  define  the  orientation 
of  one  segment  of  the  joint  with  respect  to  the  adjacent  one.  For 
example,  the  three  Euler  angles,  namely,  * ,  9,  and  *  can  be  used  to 
define  the  orientation  of  the  upper  arm  with  respect  to  torso.  If  we 
exclude  the  rotational  influence  of  the  upper  arm  along  its  long-bone 
axis  with  respect  to  the  other  two  directions,  then,  the  passive 
resistive  properties  can  be  expressed  as  f  -  f(*,  9)  where  *  and  9  are 
the  spherical  coordinates  with  respect  to  the  local  joint  axis  system 
defined  in  Section  3.2. 

The  basic  components  of  the  data  acquisition  system  are  shown  in 
Fig.  3.4.  The  major  component  of  the  system  is  the  sonic  digitizer  and 
the  digitizer  sensor  assembly.  The  subject  restraint/positioning  system 
was  designed  so  that  the  subject's  torso  can  be  positioned  in  a  wide 
range  of  orientations.  The  force  applicator  is  a  hand-maneuvered  device 
which  is  constrained  to  motion  in  a  level,  horizontal  plane  by  a  track- 
mounted  trolley  system  located  overhead.  It  utilizes  a  six-component 
transducer  which  measures  forces  and  moments  in  three  orthogonal 
directions.  The  orientation  of  the  upper  arm  with  respect  to  torso  is 
monitored  by  means  of  the  arm  cuff  with  six  sonic  emitters  as  was  used 
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Fig.  3.4  Various  components  of  the  data  acquisition  system. 

1)  Sonic  Digitizer,  2)  Subject  Restraint/Positioning 
System,  3a)  Force  Applicator,  3b)  Strain  Gage  Signal 
Conditioner/Amplifier,  4)  Arm  Cuff  with  Orthotic  Shell, 

5)  Fixed  Body  Axis  Locator  Device. 

for  the  shoulder  complex  sinus  tests.  This  data  acquisition  system  thus 
enables  one  to  perform  a  series  of  tests  in  which  the  upper  arm  is  forced 
c  tward  in  the  direction  of  increasing  9  for  a  constant-^  value  in  the 
local  joint  axis  system  defined  by  (4>n,  9n)  (refer  to  Fig.  3.2). 
turthermore,  forces  and  moments  at  the  joint  due  to  gravitational  loading 
can  be  held  relatively  constant  and  can  be  factored  out  by  setting  all 
the  bridge  ci-cuits  of  the  force-moment  transducer  to  zero  at  the  start 
of  each  forced  sweep. 

The  subject  is  first  rotated  by  an  angle  -(90°  -  4>n)  about  the 
positioning  system  yaw  axis,  and  then  rotated  -(90°  -  9  )  about  the  roll 
axis.  If  the  subject  then  extends  his  upper  arm  in  an  orientation 
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parallel  to  the  pitch  axis  of  the  positioning  system,  hi*  humeral 
longitudinal  axis  will  be  at  ($n»  6R)  with  reapect  to  the  torso  fixed  body 
axis  system.  The  force  applicator  is  then  positioned  vertically  at  the 
saiae  level  as  the  subject's  upper  arm,  and  the  front  of  the  force 
transducer  is  strapped  to  the  subject's  arm  near  the  elbow  joint.  The 
subject  is  then  asked  to  move  his  arm  to  its  maximal  position  in  the 
constrained  plane  of  motion  of  the  force  applicator.  The  arm  is  "backed- 
off"  from  this  position,  and  this  then  is  the  starting  location  of  the 
forced  sweep.  The  subject's  upper  arm  is  then  abducted  or  adducted  in  a 
quasi-static  manner  until  the  subject  experiences  discomfort  or  the  upper 
arm  can  no  longer  be  displaced  (i.e.,  adduction  into  the  torso  occurs). 
The  forced  angular  velocity,  which  is  the  same  as  the  circumscription 
speed  in  obtaining  the  shoulder  complex  sinus  described  in  section  3.2, 
is  net  at  an  average  of  6°  of  arc/sec  for  these  tests.  During  the  entire 
course  of  each  test,  the  subject  is  instructed  to  let  his  arm  hang  limply 
and  not  to  actively  (muscularly)  resist  the  motion  of  the  test.  The 
bridge  circuits  of  the  force-moment  transducer  are  all  set  to  sero  at  the 
3tart  of  each  test,  no  that  the  recorded  values  during  the  sweep  are 
departures  from  this  "neutral"  force  orientation,  or  stating  it  in  a 
different  manner,  they  are  the  passive  resistive  force  values. 

With  respect  to  the  joint  axis  system,  these  forced  sweeps  take 
place  In  a  direction  of  increasing  B,  and  at  an  approximately  constant-*)* 
value.  Dy  then  rotating  the  positioning  system  arx>ut  its  pitch  axis,  a 
series  of  constant-*)*  sweeps  are  obtained.  Bach  time,  the  force 
applicator  is  vertically  positioned  at  the  proper  level  with  the  humeral 
longitudinal  axis  in  a  level  horixontal  plane.  In  this  way  the  tests  are 
performed  as  four  sub-series  with  each  sub-series  discernible  by  its  own 
experimental  set-up  configuration.  The  groupings  consist  of  constant-*)* 
sweeps  In:  1)  the  upper-rear  quadrant  (0°  *  <)*  <  90°),  2)  the  lower-rear 

quadi  ant  (90°  -  <)>  -  180°),  3)  lower-front  quadrant  (I80n  v  $  <  270°)  and 
•1)  the  upper-front  quadrant.  (270°  <  4>  -  360°). 

The  data  obtained  according  to  the  procedure  outlined  above  were 
analyzed  as  follows.  First,  the  force  and  moment  vectors  obtained  from 
the  force  applicator  data  were  used  to  calculate  a  total  moment  vector 
with  respect  to  the  instantaneous  joint  center  which  is  chosen  to  be  the 
glenohumeral  joint  center  location.  Next,  a  moment  arm  vector  was 
calculated  from  the  center  of  the  best-fitted  sphere  (described  in 
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Section  3.2)  to  the  point  of  force  application.  Next,  the  intersection 
of  this  vector  with  a  sphere  of  radius  equal  to  one  raster  was  selected  an 
a  "nor »ali*ed"  point  of  force  application.  The  total  moment  vector  wan 
then  resolved  into  components  along  the  moment  arm  ■  “->  perpendicular  to 
the  moment  arm  vector.  The  component  along  the  position  vector  (moment 
arm  vector)  was  then  discarded!  since  it  does  not  serve  to  restore  the 
moving  segment  to  an  orientation  within  the  voluntary  shoulder  complex 
sinus.  From  the  remaining  moment  component  and  the  normalised  position 
vector  the  resistive  force  vector  was  then  calculated.  Since  the  moment 
arm  is  normalised  to  one  meter,  the  magnitude  of  the  resistive  force 
vector  is  the  same  as  that  of  the  re&istive  moment  vector.  We  shall 
refer  to  this  magnitude  as  the  passive  resistive  force  (moment)  property. 
Note  that  this  force  vector  is  always  tangent  to  the  surface  of  the 
selected  normal  sphere.  Fig.  3.5  depicts  the  vectors  and  coordinates 
specified  in  the  analysis. 


Fig.  3.5  Illustration  of  the  vector  quantities  used  in  the 
calculation  of  resistive  force  values. 
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Finally*  to  oonsolldtt*  the  vast  amount  of  passive  resistive  fore* 
(moment)  data  and  to  facilitate  tha  atatlatioal  analyaia*  tho  functional 
expansion  f(8*  8)  oust  bs  *,  .abliahod.  A  variety  of  basis  functions  has 
bssn  investigated  by  utilising  the  GUM  (General  Linear  Model)  prog ran  of 
the  SAS  (Statistical  Analysis  Systen)  con pu ter  package  (SA8  User's  Guide* 
1982)  of  the  Instruction  and  Research  Conputer  Center  at  The  Ohio  State 
university.  It  was  found  that  the  functional  expansion 

£(8#  8)  ■  (Cl  ♦  C2coa8  ♦  CjSin8)8  +  (C^coa28  ♦  CjCOS^sin^ 

♦  Cfisin28)62  ♦  (C7co«38  ♦  C#cos^tii4 

♦  C#cos8s)n28  ♦  C10sin38)83  (3.3.1) 

provides  the  best  fit.  Ten  was  used  for  the  nunber  of  basis  functions 
(or  coefficients)  and  deterained  as  the  scaliest  nunber  for  which  the 
following  criterion  chosen 

>  90%  (3.3.2) 


which  is  called  the  coefficient  of  nultiple 
determination  and  measures  the  proportionate  reduction  of  total  variation 
in  f  associated  with  the  use  of  the  act  of  (8*  0)  independent  variables* 
SSE  is  the  error  (residual)  sum  of  squares  or 

n  , 

S5K  »  )  (f  (♦,*  0  )  -  *,  (8  ,  8  )|  ,  and 

l-l  1,1 

!»f»TO  in  the  total  num  <»f  squares,  or 

n  2 

:::;to  =  )  1*^(8.,  0^)  -  z]  ,  where 

i=l 

n  3  total  number  of  experimental  force  (moment)  data  points  collected* 
z^(8.,  H.)  *  the  experimental  force  (moment)  value  collected  at  the  ith 


2  SSE 

R  »  i - rr=rr 

SSTO 


is  satisfied,  where 


R2(0  <  R2  <  1) 


4k 

h  detailed  discussion  of  the  R*  and  ccUt«<l  regression  analysis  can  ho 
found  in  Meter,  ot  al.  (198$). 

Sine*  0(0  >  0)  measures  how  fat  the  upper  am  dopai  ta  from  the 
t-axia  of  the  local  joint  ax  la  ay  at  mi,  and  4  goes  trow  0  to  2x,  we  can 
treat  9  an  the  radial  coordinate  and  9  the  angular  coordinate  in  the 
polar  coordinate  system  (9,  9).  The  pole  ia  then  the  s-axls  of  the  local 
joint  axis  ayatea  .  Therefore,  If  we  introduce  the  following  coordinate 
transformation 

p  ■  9coa9 

q  •  9ain9  (3.1.1) 

then  (p,  q»  can  be  regarded  aa  the  corresponding  rectangular  coordinate 
ayatea.  Pig.  3.C  illuatratea  both  coordinate  ayateaa  and  the 

correaponding  four  teat  quadrants.  We  ahall  define  the  coabination  of 
theae  two  coordinate  ayateaa  an  the  aodified  joint  axia  aysten. 
Obvioualy  in  teraa  of  the  aodified  coordinates,  (p,  q) ,  the  expansion 
function  now  becoaea 

Ilk,  «)  •  rip,  q)  .  Cj  ^p2+q2  ♦  Cjp  *  c3q  ♦  c4p2  ♦  c5pq 

♦  Cs,2  .  C,pJ  ♦  C,pl,  .  C5pq2  .  C10,3  (3.3.4) 

With  the  help  of  the  aodified  joint  axia  ayatea,  a  physically 
aeeningful  plot  can  be  aade  for  the  above  expanaion  function  to  give  us  a 
visual  aid  to  the  understanding  of  the  overall  resistive  force  (aoaent) 
properties  of  any  articulating  joint.  Pig.  3.7  shows  the  constant 
resistive  force  (aoaent)  contour  aap  for  a  subject  and  Pig.  3.8  shows  a 
corresponding  three-dimensional  perspective  view.  pig.  3.9  illustrates 
the  sense  of  how  •well*  the  expanaion  f(9,  0)  fits  the  raw  data  for 
several  constant-9  sweeps. 

3.4  Statistical  Analysis 

Considering  the  vast  quantities  of  sinus  and  force  data  for  ten 
subjects,  it  would  be  very  cuaberaoaa  if  one  uaes  a  direct  statistical 
analysis  technique.  it  ia  sore  desirable  to  develop  a  systematic  and 


2S 


q 


rig.  3.6  The  modified  joint  axis  systoai  and  tha  corresponding 
four  teat  quadrants. 


easily  aanagaabls  approach  to  daal  with  tha  extensive  data.  Therefore, 

Eqs.  (3.2.1)  and  (3.3.1)  will  be  utilised  in  an  appropriate  manner  to 

seek  for  a  sample  mean,  sample  variance,  and  the  confidence  intervals  for 

the  population  mean  and  variance.  In  this  section  we  shall  derive  the 

Method  in  a  general  sense. 

N 

Let  f(5)  ■  £  C.  g.  (i)  be  a  functional  expansion  (by  the  method  of 

i-1  1  1 

least  squares  in  this  study)  for  the  experimentsl  measurement  of  a 
certain  quartity  f  having  n  independent  variables,  i.a.,  x  ■  (x^,  x^,  x^, 
...,  xn),  where  (g^fx)  |i  »  1,  2,  3,  ...,  N)  is  a  set  of  mutually 
independent  basis  functions,  (C^  |i  »  1,  2,  3,  ...,  N  >  is  the 
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Pig.  3.7  Constant  resistive  fore*  (moment) ,  in  Newtons  (Newton- 

Natsra) ,  contour  aap  for  a  subject  in  tha  nodi fi ad  joint 
axis  system,  in  radians. 


corresponding  set  of  independent  expansion  coefficients,  and  K  is  the 
number  of  basis  functions  or  coefficients.  Consider  now  the  statistics 
of  the  quantity  f  for  a  chosen  population  from  which  we  have  a  random 
sample  of  site  N.  Then,  obviously,  the  coefficients,  C^,  becoaa 
statistically  independent  random  variables,  and  the  non-random  basis 
functions  become  statistically  constant.  Furthermore,  f  is  now  a  linear 
combination  of  random  variables,  and,  so,  is  itself  a  random  variable. 

Prom  probability  theory,  for  each  x,  the  population  mean,  yf(x),  is 

yf  (x)  -  B[f  (J)]  -  B[  5  Ct  g. (x)l 

i«l 

-  I  *Llx)  BtCl)  »  l  (x)  y  (3.4.1) 

i*l  i»l  ci 
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Fig.  3.8  Perspective  view  of  Fig.  3.7. 


a:  n 

go 

[2 

q: 


8  (RAD.) 

Fig.  3.9  Raw  data  end  fitted  curve*  drawn  from  f($,  6)  for 

variouo  constant-^  sweep*  for  the  subject  mentioned  in 
Fig.  3.7. 


where  we  have  utilised 


COvtc^,  -  o  for  all  1  <  i  <  j  < 


(3.4.3) 


sinoe  all  the  coefficients  are  mutually  independent.  Note  that  in  Eq. 

(3.4.1)  the  operator  E  stands  for  the  mathematical  expectation  and  in  Eq. 

(3.4.2)  the  operator  VAR  for  the  variance.  Therefore,  if  we  know  the 


3 


I 


population  meana,  u  ,  and  the  population  variances,  a  ,  for  all  the  M 

i  i  ^ 

coefficients,  we  can  evaluate  the  population  mean  and  variance  for  f(x). 


Sample  Mean,  fix),  and  9a»ple  Variance! 


Since  the  population  means  and  variances  of  the  coefficients  can 

rarely  be  obtained*  we  seek  for  statistical  estimates,  namely,  the  sample 
-  2 

means,  C. ,  and  sample  variances,  S  ,  from  the  given  random  sample  of 
1  ci 

size  N.  Prom  statistical  theory,  an  estimate  for  u  . 

Q  X8 


5i-s  X  <ci>j 

j-1  J 


(3.4.4  ) 


where  (Cj).j  stands  for  the  ith  coefficient  of  the  jth  sample  outcome,  and 


an  unbiased  estimate  for  a  is 

I  u.  | 

Thus,  an  estimate  for  yf (x)  from  Eq.  (3.4.1)  is 


(3.4.5) 


f(x)  -  l  gt(x)  ci 

i«l 


(3.4.6) 


and  an  unbiased  estimate  for  0^(x)  from  Eq.  (3.4.2)  is 


S^(x)  -  l  g2(x)  S2 


(3.4.7) 


Confidence  Interval  for 


i£ik 


From  statistical  theory,  the  random  variable 


f (x)  -  pf(x) 
Sf  (x)//N 


has  a  t-distribution  with  N-l  degrees  of  freedom,  regardless  of  the 

-*  2  -* 

parameter  values  p_(x)  and  a.(x).  Therefore,  the  confidence  interval  of 
-►  r  E 
y£(x)  can  be  obtained  by 


(  f(x)  -  uf(x) 

I  Sf($)//F 


(3.4.8) 


where  Pr  is  the  probability,  y  is  the  confidence  level  to  be  chosen,  and 
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cy  >  C)  is  the  solution  of  the  equation 


fv. 


(7)  d*  - 


(3.4.9) 


where  t^.^is  the  probability  density  function  of  the  t-distribution  with 
N-l  degrees  of  freedom.  Rearranging  the  inequalities,  we  obtain  the 
confidence  interval  for  y^(x),  at  the  confidence  level  y, 


(,+  \  Sf(x)  +  ....  a  S  (x) 

COUP  {  *<x)  -  r - <  y  (x)  <  f  (x)  +  -J— r - 

(  'N  1  /n 


(3.4.10) 


Confidence  interval  for  at  (x)  2  .. 

(N-l)  sf  (x) 

The  fact  that  the  random  variable  - -  has  a  x  -distribution 

O^(x) 

with  N-l  degrees  of  freedom  enables  us  to  have 


(  (N-l)  s‘(x) 

Pr  ;  a  < - <  ft 

(  Y  a'(x)  Y 


where  is  the  solution  of  the  equation 


P  *2-i  <*>d*  •  ¥  • 

•'O 


(3.4.11) 


(3.4.12) 


and  is  the  solution  of  the  equation 


L  *5-1  <* 


)d*  -  ^  , 


(3.4.13) 


where  x«  i  is  the  probability  density  function  of  the  x  -distribution 

with  N-l  degrees  of  freedom.  Rearranging  the  inequalities,  we  obtain  the 

2  -> 

confidence  interval  for  Og(x),  at  the  confidence  level  y, 


cam 


!(N-1)  s:(x)  -  .  (N-l)  sj(x)  ) 

j 


(3.4.14) 


3 . 5  Coordinate  Transformations  Among  the  Fixed  Body,  Individual  joint 


and  Mean  Joint  Axis  Systems 


Since  we  shall  utilize  the  functional  expansion  forms,  Eqa.  (3.2.1) 
and  (3.3.1),  to  perform  statistical  analysis  for  the  shoulder  complex 
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sinuses  and  passive  resistive  properties  beyond  them,  appropriate 
coordinate  systems  should  be  consistently  used  for  the  purposes  of 
statistically  comparing  the  coefficients  of  the  data  sets  for  ten 
subjects.  In  representing  the  joint  property  data  in  functional 
expansion  form,  different  coordinate  systems  used  will  result  in 
different  coefficients  although  the  same  basis  functions  are  used. 
Therefore,  it  is  necessary  to  perform  coordinate  transformations  for  the 
spherical  angles,  $  and  6,  among  the  fixed  body,  individual  local  joint 
and  mean  joint  axis  systems. 

The  local  joint  axis  system,  as  shown  in  Fig.  3.10  is  uniquely 


Fig.  3.10  Joint  axis  system  as  obtained  by  two  successive 

rotations,  first  about  the  z^-axis  and  then  about 
the  intermediate  (primed)  y'-axis  from  the  fixed 
body  axis  system. 


obtained  in  this  study  by  first  rotating  the  fixed  body  axis  system  by  an 
angle  about  the  z^-axis  and  then  rotating  the  intermediate  (primed) 
axis  system  by  an  angle  0_  about  the  y'-axis.  The  mean  joint  axis  system 

is  obtained  in  a  similar  manner  with  (<j>n»  ©n)  replaced  by  ($m»  ©„,)  • 
Since  the  joint  sinus  with  spherical  coordinates  ($,  0)  implies  a  unit 
vector  with  rectangular  coordinates  (sin9  cos$,  sin©  sin4>,  cos©),  the 
coordinate  transformation  from  ($£,  ©j)  #  relative  to  the  fixed  body 
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•xia  system,  to  (4^,  0^),  relative  to  the  joint  axis  system,  can  be 
obtained  In  the  following  manner i 


“ sin8j  cos^j  ‘ 

*  sin0f  cos4(  * 

*  x " 

sin0 j  sin^j 

sin0f  sin^^ 

■ 

y 

CO80  j 

4b 

COS0f 

CW 

_  X  _ 

jt  E  fb  jt 


’  cos0  0  -sin9_ " 

n  n 

cos6  sin4>  0 

n  n 

"h,r*  "jt/fb  • 

0  10 

-sin4n  coe4n  0 

sin0,  0  cos0,  . 

n  n 

.  0  0  1 

cos©  cos4  coa9  sink  -sin9 

n  n  n  n  n 

-8in$_  cosi  0 

n  n 

sin8  cosi  ain0  sin*  cos0 

n  n  n  n  n 


(3.5.1) 


is  the  transformation  matrix  defining  the  joint  axis  system  relative  to 
the  fixed  body  axis  system,  and  x,  y,  s  can  be  numerically  calculated 
with  (tR,  0n)  and  the  joint  sinus  (4f,  0f )  specified.  Comparing  the  left 
and  right  hand  sides  of  Eq.  (3.5.1),  we  have 


♦ .  «■  tan  1  ^  and 

i  * 

9 j  ■  cos-1  z  .  (3.5.2) 


The  coordinate  transformation  from  (4f,  0f)  to  (4^,  0^),  where  mj 

stands  for  the  mean  joint  axis  system,  can  be  obtained  in  the  same  way  as 

above  with  tt  ,  0  1  replaced  by  (4  ,  0  )  so  that  the  transformation 
n  n  In  m 

matrix  defining  the  mean  joint  axis  system  relative  to  the  fixed  body 
axis  system  now  becomes 


Mmj/fb  " 


'  COB0  cos6 
in  Tro 

.  sin0_  cob4> 
in  in 


cos0  sin6  -sin0 
m  Tm  m 

cosd  0 

ID 

sin0,  sin4  cos0„ 

m  m  m 
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it  the  joint  sinus  is  given  relative  to  the  individual  local  joint 
axis  system,  then  the  spherical  coordinate  transformation  from  ,  0^) 
to  (4>m j  i  0^)  can  be  achieved  by  noting  that 


'*ln9.j  0o*+.J  ■ 

“ain6  j  cos$j“ 

.1.8,5  .1^,5 

"  “mj/fb  Lfb/jt 

sin6j  sin$j 

CO80  j 

*hKe  Ltb/jt 
matrix,  i.e.. 


mj 

Njt/fb  "  Njt/fb  since  Mjt/fb 


(3.5.3) 

is  a  proper  orthogonal 


Njt/fb  Njt/fb  *  1  ' 


(3.5.4) 


and  X,  ¥,  Z  can  be  numerically  calculated  with  (4,0),  (4  ,  9  )  and  the 

n  n  n  n 

joint  sinus  (<|>.j,  0^)  specified.  Comparing  the  left  and  right  hand  sides 
of  Eq.  (3.5.3),  we  have 


*  tan 


6mj  "  COS  1  2  * 


(3.5.5) 


3.6  Statistical  Data  Base  for  the  Biomechanical  Properties  of  the  Human 
Shoulder  Complex 

Since  each  subject  has  an  individual  local  joint  axis  system 
specified  by  ($n,  8n) ,  in  statistically  comparing  the  functional 
expansion  coefficients  of  the  joint  property  data,  two  different  sets  of 
sample  means  and  sample  variances  can  be  envisioned  and  obtained  from 
different  points  of  view< 

1.  Subject-Based  Mean  and  Variance 


Here,  we  consider  each  individual  local  joint  axis  system,  defined 


by  (♦_,  8m),  as  an  indax  attributable  to  the  individual  anatomical 

ft  n 

variations  in  overall  joint  articulating  structure  as  veil  as 
muscle/ligament  orientations,  and  subjective  kinematic  behavioral 
variations  in  the  circumscription  mannerism.  Then,  not  to  be  biased, 
each  individual  joint  sinus  and  the  resistive  force  (moment)  data  should 
be  described  by  (0^,  8^)  with  respect  to  the  joint  axis  system  of  each 
subject,  namely, 

8^  •  9j(0j)  for  the  shoulder  complex  sinus,  and 

F  ■  P(+j#  6j)  for  the  resistive  force  (moment). 

The  functional  expansion  coefficients  obtained  from  these  data  are 
called  subject-baaed  coefficients.  Furthermore,  the  population/sample 
means  and  variances  obtained  from  the  subject-based  coefficients  will  be 
called  subject-based  population/sanple  means  and  variances,  respectively. 
Obviously,  from  a  statistical  point  of  view,  the  most  appropriate  axis 
system  for  the  subject-based  population/sample  means  and  variances  is  the 
population/sample  mean  joint  axis  system. 

2.  Space-Baaed  Mean  and  Variance 

In  this  case,  the  shoulder  complex  sinuses  and  the  resistive  force 

(moment)  data  are  described  by  (0  8  .)  with  respect  to  a  common  mean 

*3  ®J 

joint  axis  system  for  all  subjects,  namely, 

e  .  «  r  (4>  .)  for  the  shoulder  complex  sinus,  and 

mj  j  m] 

F  »  ®raj)  f°r  the  res^8t^ve  force  (moment). 

The  functional  expansion  coefficients  obtained  from  these  data  are 
now  called  space-based  coefficients.  Zn  addition,  the  population/sample 
means  and  variances  obtained  from  the  space-based  coefficients  will  be 
called  space-based  '  ulation/sample  means  and  variances,  respectively. 


Maximum  Voluntary  Shoulder  Complex  Sinus 

Table  3.2  lists  IV?  ten  subject-based  coefficients  of  the  shoulder 
complex  sinuses  for  ten  subjects.  Table  3.3  lists  the  corresponding 
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Table  3.2  Subject -based  coefficients  of  the  shoulder  complex  sinuses  for  all  ten  subjects 
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Table  3.3  Space-based  coefficients  of  the  shoulder1  complex  sinuses  for  all  ten  subjects 
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e  (RAD.) 


ten  space-based  coefficient*.  These  two  table*  also  list  the  sample 
Means  and  variance*  foe  all  ten  coeffieienta.  Pig.  3.11  shows  the  best 


<f>  (RAD.)  I 

Fig.  3.11  Subject** based  and  space- based  maximum  voluntary 
shoulder  complex  sinuses  for  the  first  subject 

1 

fitted  curves  for  both  space-based  and  subject-based  sinuses  for  the 
first  subject  who  has  the  ($R,  0n)  ■  (57*. 37*  72*. 24)  which  depart  the 
most  fro*  the  mean  values  ($^,  0^)  «  (59*. 29#  79*. 00).  The  more  the 

individual  joint  axis  system  deviates  from  the  mean  joint  axis  system, 
the  bigger  is  the  difference  between  the  space-based  and  the  subject- 
based  sinuses. 

Now  let  us  apply  the  results  obtained  from  the  statistical  analysis 
developed  in  section  3.4  to  establish  a  statistical  data  base  for  the 
shoulder  complex  sinus.  In  this  case,  the  functional  expansion, 
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Sq.  (3.2.1) *  has  only  on*  independent  var labia#  l.a. ,  +  . 
Proa  Kq.  (3.4.6)  ona  obtains  the  sample  naan 


5  <♦)  -  l  c0*""1  ♦  ( Cjn-!  ♦  C2n  sin$ \  (3.6.1) 

n-1  \  / 

and  fraa  Bq.  (3.4.7)  tha  unbiased  sample  variance 

s|»>  -  I  «.***•«  ♦  3?  .in2*)  (>•«•» 

•  n*l  V  C2n-1  C2n  ' 

Fig,  3.12  displays  tha  least-squares  fitted  data  for  tha  subject-based 

sinuses  of  all  tan  subjects.  This  figure  also  shows  curves  for  the 

sample  naan,  6($)#  and  those  corresponding  to  $($)  +  s0($).  Pig.  3.13 


<f>  (RAD.) 

Fig.  3.12  Curve-fitted  data  for  subject-based  sinuses  of  all 
subjects  (dotted  curves) .  Solid  curves  are  for 

5  and  5  +  Sq. 
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■hows  thstr  corresponding  globographic  r*pres*n tat ions  In  the  tor so- fixed 

coordinsts  system,  t.«.,  ths  spherical  coordinstss  on  ths  glob*  *r* 

referred  to  th*  flx*d  body  axis  system.  Therefor*,  the  ooordi nates 

(g£#  0£)  ■  (0°  *  90°)  on  th*  glob*  corresponds  to  th*  «m*rg*nt  point  of 

th*  x£b~axis,  and  th*  coordinates  ($f ,  0f)  >  (90° ,  90° )  corresponds  to 

th*  emergent  point  of  th*  yfb-axia.  Not*  that,  in  this  c*s*»  sine*  each 

subject's  sinus  is  d*fin*d  by  its  own  local  axis  system  designated  by 

(*  ,6  ),  f row  a  statistical  point  of  view,  th*  most  "appropriate"  local 
n  n  * 

axis  system  for  th*  subj*ct-ba**d  9  ($)  and  Sg($)  is  th*  m*an  joint  axis 
system,  designated  by  th*  sample  mean,  ($fc,  6^),  taken  from  the  sampl*. 


I 


Z 


fb 


i 


Z 


fb 


Fig.  3.13  Globographic  representations  of  § 
and  9  +  Sq  (subject-baaed). 


Fig.  3.14  displays  the  least-squares  fitted  data  for  the  space-based 

sinuses  for  all  ten  subjects.  This  figure  also  shows  curves  for  the 

sample  mean,  5(<fc),  and  those  corresponding  to  9($)  +  Sg($).  Fig.  3.15 

shows  their  corresponding  globographic  representations.  Obviously,  In 

this  case,  the  mean  joint  axis  system  should  be  t'sed  for  the  space-based 
2 

ff($)  and  Sg($),  since  all  the  sinusos  are  represented  in  this  axis 
system. 
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<f>  (RAD.) 


Pig.  3.14  Least-squares  fitted  data  (dotted  lines)  for  the 

apaoe-basad  sinuses  for  all  ten  subjects.  The  middle 
solid  curve  is  the  space-based  sample  mean  joint  sinus, 
$(♦).  The  upper  and  lower  solid  curves  ace 
§(♦)  +  Sq(4)  and  8($)  -  8 q($)*  respectively. 

For  the  purposes  of  comparison,  Fig.  3.16  displays  the  sample  mean, 
§(♦)»  and  those  corresponding  to  §  ($)  +  Sg($)  for  both  space  based  and 
subject-based  sinuses.  It  should  be  remarked  that,  while  the  space-based 
and  subject-based  sinuses  may  differ  significantly  for  an  individual 
subject,  their  sample  means  and,  5($)  +  Sg($),  may  be  Indiscernible  as 
indicated  in  Fig.  3.16. 

One  of  the  most  important  ways  of  testing  the  ultimate  overall 
performance  of  the  data  acquisition  system  and  efficacy  of  the  associated 
data  analysis  methodology  is  good  repeatability  of  sample  means  and 
sample  standard  deviations  from  different  runs  made  on  the  same  sample. 
Pig.  3.17  displays  the  subject-based  sample  means,  and  0  +  Sg  from  three 
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different  runs  for  all  subjects.  Rather  good  repeatability  obviously 
exists  if  one  realizes  that  aoat  of  the  deviations  arise  from  the 
variations  during  circumscription  type  of  motion  by  the  subjects. 


Fig.  3.15  Globographic  representations  of  §(<j>) 
and  §($)  +  Sq(<|>)  (space-based). 


For  the  confidence  level  of  95%,  utilizing  Eq.  (3.4.8),  we  obtain 
from  statistical  table  (Kreyszig,  1972}  that* 

(  0(4>)  -  yfl($)  ) 

Pr  <  -  2,26  <  _ L_  <  2.26  >  *  95%  (3.6.3) 

(  se  (<*>)/  /lO  ~  ) 

Rearranging  the  inequalities,  we  obtain 


Pr  |  [5  (<|>)  -  0.715  Sq  (<(>)]  <  y0«|»)  <  [§($)  +  0.715  S0«t>))  J  *  95% 

(3.6.4) 

In  other  words,  we  are  95%  confident  that  the  population  mean  U0(<!>)  is 
within  the  interval  (§(4>)  -  O715S0(4>),  9(4>)  +  O.715S0(4>)1  at  each  value 
of  4? . 

Fig.  3.18  shows  the  confidence  intervals  for  both  the  space-based 
and  subject-based  population  means  for  comparison.  Fig.  3.19  displays 
the  globographic  representation  of  the  confidence  interval  for  the 
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<f>  (RAD.) 


Pig.  3.16  5(<j>)  and  5 ($)  +  S„($)  for  both  space-based  and 

subject-baaed  sinuses.  Note  that  the  two  I  curves 
coincide  with  each  other  in  this  figure. 


subject-based  population  mean,  (<$>) . 

For  the  confidence  interval  of  the  population  variance,  from 
Eg.  (3.4.11),  we  have 

(  9  S0  #>  / 

Pr  {  2.70  <  - 1 -  <19.02  >  -951  (3.6.5) 

f  0*($)  “  ) 

2 

with  2.5%  of  probability  on  both  tails  of  the  x  -distribution  curve. 
Rearranging  the  inequalities,  we  have 

Pr  j  0.473  SgtfO  <  Oq($)  <  3.33  s| «)>)  j  -  95%  (3.6.6) 
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Table  3.4  lists  the  subject-based  coefficients,  as  well  as  their 
sample  means  and  sample  variances,  for  the  passive  resistive  force 
(moment)  data  for  all  ten  subjects.  Table  3.5  lists  the  corresponding 
space-based  coefficients. 


mm  w  irv 


Cl  for  u~  (RAD.) 


From  Eq.  (3.4.6)  one  obtains  the  sample  mean 
f($,  0)  ■  (C  +  CjCOS$  +  C3sin$)0  +  (C^cos2<t> 

+  CjCOS^ain^  +  C6sin2t)02  +  (C?cos3(|)  +  C8cos2<)>sin«t» 

+  C9cos$sin24>  +  C10«in34))93  (3.  ^.7) 
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Fig.  3.19  Globographic  representations  for  the  sample  mean,  6, 
and  the  95%  Confidence  Interval  for  the  subject-based 
population  mean,  vu. 

and  from  Gq.  (3.4.7)  the  sample  variance 

S?(4>,  0)  «  (S2  +  S2  cos2$  +  S2  sin2$)02  +  (S2  cos4<|> 

C1  L2  C3  C4 

+  S t  cos  $sin  $  +  S*  sin  $)0  +  (S*  cos  9 
5  C6  C7 

+  S2  cos4$sin2<t>  +  S2  cos2<|>sIn4<t>  +  S2  sin6<(>)06  . 

8  9  10  | 

(3.6.8) 

I 

Note  that,  in  this  case,  the  functional  expansion  for  the  force  (moment) 
properties,  i.e.  Eq.  (3.3.1),  has  two  independent  variables,  $  and  6. 

Fig.  3.21  shows  both  the  space-based  and  the  subject-based  sample 
means  tor  the  passive  resistive  force  (moment)  property  in  the  form  of  a 
constant  contour  map.  Since  the  difference  between  these  two  contour 
maps  is  imperceptible  they  are  shown  in  two  separate  figures  rather  than 
in  a  superimposed  format. 
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Fig.  3.20  The  95%  Confidant*  Interval  (CD  for  the 
population  standard  deviation ,  oQ.  The 
subject-baaed  sample  standard  deviation, 

Sq,  is  also  shown. 

Xt  should  be  mentioned  that  the  force  (moment)  data  were  collected 
beyond  the  maximum  voluntary  sinus  up  to  the  point,  which  will  be 
referred  to  as  the  maximum  forced  sinus,  where  the  subject  starts 
experiencing  discomfort  or  the  upper  arm  can  no  longer  be  moved  (i.e. 
adduction  into  the  torso  occurs).  The  raw  data  for  the  maximal  forced 
sinus  are  curve  fitted  by  the  same  functional  expansion  used  for  the 
maximal  voluntary  sinus.  Table  3.6  lists  the  subject-based  coefficients 
aa  well  as  their  sample  means  and  sample  variances  for  the  ten  subjects’ 
maximal  forced  sinuses.  The  statistical  analysis  procedure  is  also 
applied  to  the  maximum  forced  sinuses.  Fig.  3.22,  for  comparison, 
displays  the  space-based  aa  well  as  the  subject-based  sample  means  for 
the  maximal  forced  sinuses.  With  the  exception  of  the  region  0  <  4>  <  2, 
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Fig.  3.21  Constant  contour  naps  of  (a)  space-based  and  (b) 

subject-based  sample  means  for  the  passive  resistive 
force  (moment)  in  Newtons  (Newton-Meters) . 

these  two  sample  means  have  indistinguishable  difference.  Finally, 
Fig.  3.23  shows  the  globographic  representations  of  the  subject-based 
mean  maximal  voluntary  and  mean  maximal  forced  sinuses. 

In  computing  the  sample  means,  we  found  two  different  alternatives 
to  represent  the  individual  joint  sinus  and  passive  resistive  property. 
For  the  shoulder  complex  investigated  in  this  study,  it  was  established 
that  the  difference  between  the  subject-based  and  the  space-based  sample 
means  is  indicernible  even  though  each  one  possesses  a  particular 
anatomical  or  physical  significance .  In  the  next  two  chapters,  for 
simplicity,  we  shall  adopt  the  subject-based  approach  in  representing  the 
joint  properties  for  the  hip  and  humero-elbow  complexes. 

To  obtain  some  physical  insights  into  the  nature  of  the  joint 
property  of  the  human  shoulder  complex,  let  us  superimpose  the  three  most 
important  results,  l.e.,  the  (subject-based)  sample  means  of  the  passive 
resistive  force  (moment),  maximum  voluntary  sinus,  and  maximum  forced 
sinus,  on  the  same  figure  as  shown  in  Fig.  3.24.  First,  several 
observations  concerning  the  passive  resistive  properties  beyond  the 
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Table  3.6  Subject-based  coefficients  of  the  maximum  forced  sinuses  for  all  ten  subjects 


i 
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4>  (RAD.) 

Fig.  3.22  Space-based  and  subject-based  sample  Mans  foe  the 
maximal  forced  sinuses. 


Fig.  3.23  Globographic  representations  of  the  subject-based 

mean  maximal  voluntary  (inner  curve)  and  mean  maximal 
forced  (outer  curve)  sinuses. 
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Fi9.  3*24  Subject-based  sample  Mans  of  the  passive  resistive 

force  (moment),  maximum  voluntary  sinus  (inner  dashed), 
and  maximum  forced  sinus  (outer  dashed) . 


maximal  voluntary  shoulder  complex  sinus  can  be  made: 


1.  The  constant  resistive  force  (moment)  contours  are  not  simply 
an  outward  conformal  expansion  of  the  maximal  voluntary  sinus 

as  one  might  surmise  and  adopt  to  use  in  currently  existing 
multisegmented  total-huaan-body  models. 

2.  The  shoulder  complex  is  least  resilient  in  the  two  rear 
quadrants  (0  <  $  <  n ) .  in  this  region,  more  or  less  constant 
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foroe  (aoMnt)  values  t between  14  and  18  Newtons  (Htvton- 
Natara)]  vara  observed  to  tnitlata  discomfort. 

3.  Tha  lover  front  portion  (*  <  8  <  <|«)  of  tha  plot  exhibits  tha 
•oat  raailiant  behavior  due  to  adduction  of  tha  upper  ar»  into 
tha  torao.  No  real  diaoomfort  vaa  obaarvad  and  tha  maximal 
forced  ainua  in  thia  region  ia  baaed  on  tha  8  valuta  reached  aa 
far  aa  poaaible  during  tha  constant-^  avaapa  for  tha  force 
(aoaent)  lavala  which  wata  allied. 

4.  Tha  upper  front  region  (^i<8  <  2*)  axhibita  an  intermediate 
(tranaitlonal)  character iatic  in  terma  of  resilience*  In  thia 
region,  dlaconfort  initiataa  at  tha  force  (moment)  level  of 
about  26  Nevtona  (Newton-Meter a) . 

Second,  the  aaxinun  voluntary  and  forced  ainusea  specify  the 
applicable  daaain  of  tha  paasive  raaistiva  property.  Tha  realative 
forces  (moments)  below  tha  maximal  voluntary  ainua  are  appreciably  lower 
in  magnitude  and  thua  can  be  neglected.  Therefore,  the  maximal  voluntary 
ainua  can  be  conaidered  aa  the  lower  limit  of  the  applicable  range  for 
the  expansion  function  f(8,  8).  In  fact.  Pig.  3.9  shows  that  in  the 
neighborhood  of  the  origin  (pole),  dashed  curves  indicate  both  lacking 
good  fit  and  being  outside  the  applicable  domain.  In  the  strict  sense, 
the  upper  limit  la  the  maximal  forced  sinus  for  the  applicability 
of  f(4,  8).  However,  the  extrapolated  values  by  f ($,  8)  beyond  this 
upper  limit  are  moat  likely  predictions  and  can  be  used  up  to  the  point 
of  impending  injury  tor  the  simulation  studies  of  multisegmented 
mathematical  models. 
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4*  BXOtttCRAMXCAL  PR0PSKTXB8  CP  TUB  HUMAN  HIP  COMPLEX 


4.1  Introduction 

This  chapter  deals  with  tha  in-vivo  biomechanical  properties  of  the 
human  hip  coa$lex  in  the  sitting  position  with  tha  torso  being  fixed. 
The  data  so  obtained  are  suitable  for  simulating  a  seated  pilot  as  well 
as  an  occupant  in  a  car. 

The  term  "hip  complex"  refers  to  the  combination*  of  the  hip  joint, 
pelvis,  lumbar  spine,  and  their  articulations.  ,  f;lg.  4.1  shows  the 
principal  bones  and  ligaments  of  the  hip  complex 1  Since  the  femoral 
motion,  while  sitting  with  torso  being  fixed,  is  finally  accompanied  by 
lumbar  flexion  and  pelvic  tilting ,  it  is  more  aj%ropriate  to  use  the 
term  "hip  complex  sinus,"  rather  than  "hip  joint  sinus,"  to  designate  the 
range  of  extreme  allowable  motion  of  the  femur  with  respect  to  torso. 
The  human  hip  has  been  normally  modeled  as  a  three-degree-of-freedom  ball 
and  socket  joint  by  most  researchers  (Dempster,  1955}  Johnston  and  Smidt, 
1969}  Chao  et  al,,  1970}  Lamoreux,  1971),  although  in  some  cases  it  has 
also  been  simplified  by  neglecting  the  axial  rotation  (Saunders  et  al., 
1953)  Paul,  1965).  In  planar  motion  studies,  it  is  even  assumed  as  a 
one-degree-of- freedom  revolute  (or  hinge)  joint  (Clayson  et  al.,  1966} 
Beckett  and  Chang,  1968) . 

Functionally,  unlike  the  shoulder  which  has  sacrificed  stability  in 
favor  of  mobility,  the  hip  provides  essential  stability  for  support  of 
the  body  as  well  as  a  certain  degree  of  mobility.  structurally,  the 
pelvis  is  more  rigid  than  the  rather  freely  movable  scapula.  The 

interplay  among  the  hip  joint,  pelvis,  and  lumbar  spine  is  similar  to 

that  between  the  shoulder  joint  (the  glenohumeral  joint)  and  the  shoulder 
girdle  which  includes  the  clavicle  and  the  scapula.  However,  the 
articulations  of  the  sacroiliac  joint  and  symphysis  pubis  provide  much 
less  mobility  than  those  of  the  shoulder  girdle.  Furthermore,  the  joint 
capsule,  the  ligaments,  and  the  muscles  have  reduced  the  freedom  of  the 
hip  joint  whose  bony  structure  permits  almost  as  much  mobility  as  is 

found  in  the  glenohumeral  joint.  For  example,  hip  hype rex ten si on  is 

practically  insignificant  mainly  due  to  the  ligamentous  check  of  the 
iliofemoral  (Y)  ligament.  Finally,  it  should  be  noted  that  hip  flexion 
is  also  dependent  upon  the  amount  of  knee  flexion  due  to  the  interaction 
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Fig.  4.1  Principal  bones  and  ligaments  of  the  hip  complex. 


of  the  two** joint  muscles  between  the  hip  and  knee  joints.  With  the  knee 
in  full  extension,  hip  flexion  is  limited  by  the  hamstrings.  More 
detailed  anatomical  and  kinesiological  descriptions  are  available  in 
standard  textbooks  (Steindler,  1973;  Norkin  and  Levangie,  1983;  Gray’s 
Anatomy,  1973)  and,  therefore,  will  not  be  made  here. 

4.2  Determination  of  the  Hip  Complex  Sinus 

The  major  components  of  the  data  acquisition  system  used  in  this 
study  are  the  sonic  digitizer  which  is  linked  with  the  PDP-11/34 
minicomputer,  digitizer  sensor  assembly,  torso  restraint  system,  and  six 
sonic  emitters  mounted  on  a  cylindrical  thigh  cuff  as  shown  in  Fig.  4.2. 
The  thigh  cuff  is,  in  turn,  attached  to  an  orthotic  brace,  which  is  held 
onto  the  thigh  by  three  Velcro  straps.  The  front  part  of  the  brace  is 
shaped  so  that  the  patella  can  move  freely. 
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Fig.  4.2  Major  components  of  the  data  acquisitions  system. 

1)  Sbnic  Digitizer,  2)  Digitizer  Sensor  Assembly, 

Torso  Restraint  System,  4)  Thigh  Cuff  with  six 
,i  Sonic  Emitters. 

The  quantitative  determination  of  the  hip  complex  sinus  involves  the 
following  basic  steps:  (1)  immobilizing  the  torso  to  be  treated  as  the 
fixed  body  and  defining  the  fixed  body  axis  system  as  shown  in 
Fig.  3.2(a),  (2)  having  the  subject  move  the  upper  leg  along  the  maximal 
voluntary  range  of  motion  and  monitor,  with  respect  to  the  fixed  body 
axis  system,  the  3-D  coordinates  of  a  distal  point  on  the  moving  body 
segment;  this  point  (to  be  referred  to  as  the  knee  joint  reference  point) 
is  selected  as  being  on  the  mechanical  axis  of  the  femur  at  the  level  of 
the  femoral  lateral  epicondyle,  (3)  fitting  the  knee  joint  reference 
point  coordinates  to  a  sphere  using  the  least-squares  method,  thus 
establishing  a  center  for  the  best-fitted  sphere  and  an  idealized  link 
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length (radius  of  the  sphere),  (4)  fitting  a  plane  to  the  sane  knee  joint 
reference  point  coordinates  to  a  sphere  using  the  least-squares  method; 
the  normal  to  this  plane  (specified  by  the  spherical  coordinates  9.J 
as  shown  in  pig.  4.3)  establishes  the  pole  (s^-axis)  of  a  local  joint 
axis  system  with  respect  to  which  the  hip  complex  sinus,  designated  by 
the  spherical  coordinates  {$,  9)  of  the  vector  connecting  the  center  of 
the  best-fitted  sphere  with  the  knee  joint  reference  point,  can  be 
expressed  as  a  single-valued  functional  relationship,  i.e.,  9  -  9($). 


Fig.  4.3  Relative  orientation  between  the  fixed  body  (xffc), 
yfb'  zfb*  and  ^any-defined  joint  (x^t,  y^, 
Zjfc)  axis  systems. 
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Since  only  the  knee  joint  reference  point  is  monitored  in  this 
study,  only  the  relationships  between  this  point  end  the  six  sonic 
emitters  on  the  thigh  cuff  need  to  be  initialized.  The  calculations  are 
the  same  as  those  used  for  the  origin  of  tjie  longitudinal  axis  system 
thoroughly  discussed  in  Section  2.2,  However,'  since  the  knee  joint 
reference  point  is  inaccessible,  two  emitters  are  needed  to  interpolate 
it  as  being  located  at  the  center.  The  emitter  positioning  for  this 
initialization  process  is  schematically  shown  in  Fig.  4.4. 

Before  the  hip  complex  sinus  test,  the  subject  was  instructed  to 
move  his  upper  leg  along  its  maximal  voluntary  range  of  motion  in  a 
counterclockwise  motion  as  viewed  from  the  sensor  assembly.  He  vac  also 
instructed  to  displace  the  upper  leg  distally  along  its  longitudinal  axis 
as  far  as  possible  at  all  tinttio  while  circumscribing  the  hip  complex 
sinus.  Preferred  rotation  of  the  upper  leg  about  its  longitudinal  axis 
as  well  as  preferred  knee  flexion  were  left  up  to  the  discretion  of  the 
subject  in  obtaining  the  maximal  contour.  Several  sweeps  of  this  type 
were  practiced  before  data  were  collected  so  that  the  subject  could 
experiment  with  obtaining  the  largest  possible  range  of  motion.  In  order 
to  help  maintain  a  constant  rata  of  motion  during  data  collection,  a 
large  clock  with  an  easily  visible  second  hand  was  placed  in  front  of  the 
subject.  The  subject  was  instructed  to  imagine  his  upper  leg  as  the 
second  hand,  and  to  synchronize  his  hip  complex  sinus  circumscription 
with  the  clock's  60  second  sweep. 

Table  4.1  lists  the  centers  and  radii  of  the  best-fitted  spheres  and 
($n»  0R)  values  of  the  best-fitted  planes  for  all  ten  subjects.  With 
respect  to  each  individual  local  joint  axis  system,  Figs.  4. 5-4. 7  show 
the  hip  complex  sinuses  for  three  subjects  and  their  corresponding  least- 
squares  fitted  functional  expansions  of  Eq.  (3.2.1).  Figs.  4.8-4.10 
display  the  corresponding  globographic  representations  of  these  three 
subjects'  functional  expansion  sinuses  with  respect  to  the  fixed  body 
axis  system. 

4.3  Determination  of  the  Passive  Resistive  Properties 

As  is  the  case  for  the  forced  tests  on  the  shoulder  complex,  it  is 
also  desirable  to  perform  a  series  of  forced  tests  in  which  the  upper  leg 
is  forced  outward  in  the  direction  of  increasing  6  for  a  constant-^  value 
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Table  4.1  Centers  and  radii  of  the  best-fitted  spheres  and 

and  (d  ,  8  )  for  all  ten  subjects, 
n  n 


SUBJECT 

CENTER  (cm) 

RADIUS 

♦n 

0n 

NO. 

xfb 

*fb 

*fb 

(cm) 

(deg  • ) 

(deg . ) 

1 

1.77 

6.14 

!  ' 

20.85 

47.82 

47.22 

64.85 

2 

3.63 

5.98 

27.45 

43.76 

53.78 

52.18 

3 

5.26 

8.49 

28.80 

47.35 

42.37 

60.04 

4 

-0.10 

5.64 

31.39 

45.50 

47.06 

52.54 

5 

3.24 

5.96 

27.57 

43.79 

55.17 

51.40 

6 

3.93 

6.94 

26.78 

46.61 

37.17 

52.83 

7 

-0.50 

5.08 

29.85 

46.81 

49.39 

53.77 

8 

3.12 

7.01 

29.30 

47.87 

i 

33.46 

57.18 

9 

-1.70 

6.26 

18.07 

50.07 

36.78 

68.34 

10 

3.84 

4.40 

25.16 

48.90 

34.54 

55.35 

Sample 

Mean 

2.25 

6.19 

26.52 

46.85 

43.19 

56.85 

Sample 

St.  Dev. 

2.28 

1.12 

4.15 

2.04 

7.96 

5.81 

9  (RAD.)  8  (RADJ 


Fig.  4.5  Raw  data  and  the  functional  expansions  of  the  hip 
complex  sinus  foe  subject  No.  1. 
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6  (RAD.)  9  (RAD.) 


Fig.  4.6  Raw  data  and  the  functional  expansions  of  the  hip 
complex  ainus  for  subject  No.  2. 
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Fig.  4.8  Globographic  representations  of  the  hip  complex 
ainuaaa  for  subject  No.  1. 
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Fig.  4.9  Globographic  representations  of  the  hip  complex 
sinuses  for  subject  No.  2. 
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Fig.  4.10  Globographic  representation*  of  the  hip  complex 
minuses  for  subject  Mo.  3. 


with  respect  to  the  local  joint  axis  systea. 

For  a  typical  forced  kineaatic  teat*  the  subject's  torso  is  first 
rotated  by  an  angle  -  (90*  -  +r)  about  the  positioning  systea  yaw  axis, 
and  then  rotated  -  (90*  -  dR)  about  the  roll  axis.  If  the  subject  then 
extends  his  upper  leg  in  an  orientation  parallel  to  the  horixontal  pitch 
axis  of  the  positioning  systea,  the  aechanieal  axis  of  the  feaur  will  be 

at  (<b  ,  6.),  l.e.,  coincide  with  the  s.  -axis  with  respect  to  the  torso 

n  n  jt 

fixed  body  axis  systea.  To  factor  out  the  gravitational  loading  of  the 
leg,  an  adjustable  pulley-cable  systea  is  used  to  hold  the  leg  with  the 
pulley  positioned  directly  above  the  hip  joint  so  that  the  horixontal 
component  of  the  cable  force  passes  through  the  hip  joint  and  does  not 
serve  to  either  abduct  or  adduct  the  upper  leg.  The  subject  is  first 
instructed  to  move  his  leg  to  its  aaxiaal  voluntary  position  in  the 
constrained  plane  of  motion  of  the  upper  leg.  The  leg  is  backed-off  from 
its  maximal  voluntary  position,  and  this  then  is  the  starting  orientation 
of  the  forced  sweep.  The  force  applicator  is  then  positioned  vertically 


at  tha  mm  level  aa  tha  aubjaot'a  upper  leg*  and  tha  transducer  front  ia 
pointad  near  tha  knaa  joint*  Tha  aubjaot'a  upper  lag  is  naxt  abduotad  or 
adduetad  in  a  quasi-static  manner  until  tha  aubjaet  atarta  exper lancing 
disoonfort  or  tha  uppar  lag  can  no  longar  ba  diaplaoad  (e.g. ,  adduction 
into  tha  borao  occurs) .  During  tha  antira  course  of  aaoh  test#  tha 
subject  is  instructed  to  let  hia  lag  hang  limply  and  not  to  actively 
(auscularly)  resist  tha  notion  of  the  test.  The  bridge  circuits  of  tha 
force-aoMnt  transducer  are  all  sat  to  Mro  at  the  start  of  each  teat*  so 
that  recorded  values  during  tha  sweep  are  departures  fron  this  "neutral" 
force  sonant  orientation,  or  stating  it  in  a  different  aanner,  they  are 
tha  passive  resistive  fores  aonent  values. 

With  respect  to  tha  joint  axis  systen,  as  aentioned  earlier,  these 
force  sweeps  take  place  in  a  direction  of  increasing  8,  and  at  an 
approxiaately  constant-^  value.  By  then  rotating  the  restraint 
positioning  syatea  about  its  pitch  axis,  a  series  of  constant-4  sweeps 
are  obtained.  In  this  way  tha  testa  are  perforaed  as  four  sub-series 
with  each  sub-series  discernible  by  its  own  experiMntal  set-up 
configuration  aa  shown  in  Pig.  4.11.  Tha  groupings  consist  of  constant-4 
sweeps  int  1)  tha  upper-rear  quadrant  (0*<  +  <90°),  2)  the  lower-rear 
quadrant  (90*  <  +  <  180*),  3)  tha  lower-front  quadrant  (180*  <  ♦  <  270*, 
and  4)  tha  upper-front  quadrant  (270°  <  +  <  380*). 

The  data  obtained  according  to  tha  procedure  outlined  above  are 
analysed  aa  follows.  First,  the  force  (?)  and  sonant  (M)  vectors 
obtained  fron  the  force  applicator  transducer  are  used  to  calculate  a 
total  noMnt  vector  with  respect  to  the  center  of  the  best-fitted  sphere 


total 


■  N  +  r 


x? 


where  t  is  the  aonent  ara  vector  fron  the  center  of  the  best-fitted 
sphere  to  the  point  of  force  application.  Next,  the  total  aonent  vector 
is  resolved  into  conponents  along  and  perpendicular  to  the  aonent  arm 
vector.  The  conponent  along  the  aonent  ara  vector  is  then  discarded, 
since  it  does  not  serve  to  restore  the  aoving  segaent  to  an  orientation 
within  the  aaxiaal  voluntary  hip  conplex  sinus.  Finally,  a  "normalised" 
aonent  ara  vector  of  unit  length,  i.e.,  one  aeter,  along  the  moment  arm 
vector  is  used  together  with  the  remaining  aonent  conponent  (the  passive 
resistive  aonent  vector)  to  calculate  the  passive  resistive  force  vector. 
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Fig.  4.11  Representative  test  configurations  in  each  of  the  four  quadrants 
1)  upper-rear,  2)  lower-rear,  3)  lower-front,  4)  upper-front 


Sine*  the  MMnt  arm  it  normalised  to  one  meter,  tha  magnitude  of  tha 
resistive  force  vector  la  tha  same  as  that  of  tha  resistive  moment 
vac tor .  We  ahall  refer  to  this  magnitude  as  tha  passive  raaistiva  force 
(moment)  proparty,  which  is  assumed  to  ha  a  function  of  +  and  0  in  this 
study  with  raspaet  to  tha  local  joint  axis  system. 

Pigs*  4.12*4.14  show  tha  constant  raaiativa  force  (moment)  contour 
asps  for  three  subjects  on  tha  Modified  joint  axis  eye  tern.  Pig.  4.15 
displays  tha  "goodness"  of  tha  curve  fitting  for  tha  raw  data  of  several 
constant*^  sweeps  for  tha  first  subject.  tn  Figs.  4.12*4.14,  the 
respective  aaxiaal  voluntary  hip  complex  sinuses  and  maximal  forced 
sinuses  are  also  indicated.  Finally,  Pigs.  4.16*4.18  show  the 
globographic  representations  of  tha  aaxiaal  forced  sinuses  together  with 
the  aaxiaal  voluntary  sinuses  (run  No.  1)  for  the  three  subjects. 

4.4  Statistical  Data  Base  for  the  Biomechanical  Properties  of 

the  Human  Hip  Complex 

Since  the  functional  expansions  used  herein  are  the  same  as  those 
used  for  the  shoulder  complex,  the  statistical  analysis  is  the  same  as 
presented  in  Section  3.6j  thus  it  will  not  be  repeated  here. 

Table  4.2  lists  the  expansion  coefficients  of  the  hip  complex 
sinuses  for  all  ten  subjects.  This  table  also  lists  the  sample  means  and 
sample  variances  of  the  ten  coefficients.  Pig.  4.19  displays  these  ten 
sinuses  as  well  as  their  sample  aean,  Sty),  and  Sty)  +  Sgty).  Fig.  4.20 
shows  the  globographic  representations  of  the  latter  three.  Fig.  4.21 
shows  the  8  and  5  +  curves  for  two  different  runs.  Again,  this  figure 
reveals  good  repeatability  of  the  hip  complex  sinus  tests. 

For  the  confidence  level  of  95%,  Fig.  4.22  shows  the  confidence 
interval  of  the  population  mean,  and  Fig.  4.23  its  corresponding 
globographic  representation. 

Table  4.3  lists  the  expansion  coefficients  as  well  as  their  sample 
means  and  saaple  variances  of  the  passive  resistive  force  (moment)  data 
for  all  ten  subjects.  Table  4.4  lists  the  expansion  coefficients  of  the 
maximum  forced  sinuses  for  all  ten  subjects.  Fig.  4.24  superimposes  the 
saaple  aeans  of  the  passive  resistive  property,  the  maximum  voluntary  and 
forced  sinuses.  Finally,  Fig.  4.25  shows  the  globographic  representations 
of  the  saaple  aeans  of  the  maximum  voluntary  and  forced  sinuses. 
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Fig.  4.12  Constant  resistive  force  (moment),  in  Newtons 

(Newton-Meters) ,  contour  map  on  the  modified  joint 
axis  system,  in  radians,  for  subject  No.  i.  The  maximal 
voluntary  hip  complex  sinus  (inner  dashed)  and  the 
maximal  forced  sinus  (outer  dashed)  are  also  indicated. 


Based  on  the  numerical  results  shown  in  Fig.  4.24,  several 
observations  and  remarks  concerning  the  passive  resistive  properties  of 
the  h  man  hip  complex  beyond  the  maximal  voluntary  sinuses  can  be  made: 


1.  The  constant  resistive  force  (moment)  contours  are  not  simply 
an  outv.ard  conformal  expansion  of  the  maximal  voluntary  sinus 
as  one  might  surmise  and  adopt  to  use  in  currently  existing 
multisegmented  total-human-body  models. 
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Pig.  4.13  Constant  resistive  force  (moment),  in  Newtons 

(Newton-Meters),  contour  map  on  the  modified  joint 
axis  system,  in  radianB,  for  subject  No.  2.  The 
maximal  voluntary  hip  complex  sinus  (inner  dashed) 
and  the  maximal  forced  sinus  (outer  dashed)  are 
also  indicated. 

2.  The  two  rear  quadrants  (0  <  $  <  *)  are  the  most  important 
regions  in  terms  of  pain  threshold  and  injury  potential.  in 
this  region,  discomfort  was  observed  at  the  force  (moment) 
levels  of  approximately  60  to  80  Newtons  (Newton-Meters),  which 
are  about  4.5  times  those  found  on  the  shoulder  complex. 
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Fig.  4.14  Constant  resistive  force  (moment),  in  Newtons 

(Newton-Meters),  contour  map  on  the  modified  joint 
axis  system,  in  radians,  for  subject  No.  3.  The 
maximal  voluntary  hip  complex  sinus  (inner  dashed) 
and  the  maximal  forced  sinus  (outer  dashed)  are  also 
indicated. 


3.  In  the  two  front  quadrants  (n  <  <f>  <  2rt ) ,  no  real  discomfort  was 
observed  due  to  adduction  of  the  upper  leg  into  the  opposite 
leg  or  the  torso.  In  this  region,  the  maximal  forced  sinus  is 
based  on  the  6  values  reached  as  far  as  possible  during 
constant-^  sweeps  for  the  force  (moment)  levels  which  were 
applied. 
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RESISTIVE  FORCE  (MOMENT)  H(N-M> 


Fig.  4.15  Raw  data  and  the  fitted  curves  (drawn  from  Fig.  4.12) 
for  several  constant-^  sweeps. 
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Fig.  4.16  Globographic  representations  of  the  maximal  voluntary 
(inner  curve)  and  forced  (outer  curve)  sinuses  for 
subject  Mo.  1. 


Fig.  4.17  Globographic  representations  of  the  maximal  voluntary 
(inner  curve)  and  forced  (outer  curve)  sinuses  for 
subject  No.  2. 
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Table  4.2  Expansion  coefficients  of  the  hip  coaplex  sinuses 

for  all  ten  subjects 


Cl  for  (RAD.) 


Table  4.3  Expansion  coefficients  of  the  passive  resistive 
force  (naaent)  data  for  all  ten  subjects* 


Fig.  4.24  Sample  means  of  the  passive  resistive  property, 
maximum  voluntary  sinus  (inner  dashed),  and 
maximum  forced  sinus  (outer  dashed) . 


Fig.  4.25  Globographic  representations  of  the  sample  r~eans  of 
'’.he  maximum  voluntary  and  forced  sinuses. 


5.  BIOMECHANICAL  PROPERTIES  OP  THE  HUMAN  RUMERO- ELBOW  COMPLEX 

5.1  Introduction 

Two  typo*  of  dot*  ore  considered  in  this  chapter:  (1)  the  maximum 
voluntary  humero-elbow  complex  sinus,  or,  the  angular  range  of  the 
extreme  allowable  motion  of  the  lower  arm  with  respect  to  the  upper  arm 
whose  axial  rotation  is  permitted,  and  (2)  the  passive  resistive 
properties  beyond  the  full  elbow  extension  with  the  lower  arm  in 
pronation. 

The  elbow  complex  is  composed  of  three  articulations:  the 
humeroradial,  the  humeroulnar,  and  the  superior  radioulnar;  it  has  been 
modeled  as  a  trochoginglymus  joint  possessing  two  rotational  degrees  of 
freedom  (flexion-extension  and  pronation-supination)  by  most 
investigators  (Dempster,  1955;  Steindler,  1973;  Youm  et  al.,  1979).  By 
utilizing  the  inserted  Kirschner  wires  for  defining  coordinate  axes  and 
biplanar  radiographs,  Chao  and  Morrey  (1979)  were  able  to  accurately 
isolate  the  three-dimensional  rotation  of  cadaver  forearms  under  passive 
elbow  motion;  the  translatory  components  of  the  joint  motion  were  ignored 
by  assuming  that  the  tight  ligamentous  constraints  would  limit  such 
motion  to  small  magnitudes.  The  additional  component  of  rotation  is 
refected  to  as  the  carrying  angle  (or  abduction-adduction).  Chao  et  al. 
(1980)  also  developed  a  device  similar  to  the  electrogoniometer  for 
determining  the  three-dimensional  angular  motion  occurring  at  living 
normal  subject’s  elbow  joint  while  performing  different  daily  functions. 
The  carrying  angle  normally  disappears  when  the  lower  arm  is  pronated 
with  the  elbow  in  full  extension.  Due  to  the  articular  check  (between 
the  olecranon  process  and  fossa)  and  the  ligamentous  constraints, 
excessive  elbow  extension  beyond  the  maximum  voluntary  range  may  cause 
serious  injuries. 

5 . 2  Determination  of  the  Humero-Elbow  Complex  Sinus 

Both  kinematic  and  force  application  tests  for  the  elbow  joint  are 
shown  in  Fig.  5.1.  This  figure  also  shows  the  upper  arm  restraint 
fixture.  The  fixed  longitudinal  axis  of  the  upper  arm  with  respect  to 
the  torso  is  chosen  to  coincide  with  the  z-axis  of  the  statistical  mean 
joint  axis  system  established  for  the  shoulder  complex  in  Section  3.2. 
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In  the  author's  opinion,  by  positioning  the  upper  arm  in  this 

orientation,  the  shoulder  complex  is  in  a  state  of  maximum  laxity.  As 

shown  in  Fig.  5.2,  the  mean  joint  axis  system  is  uniquely  obtained  by 

first  rotating  the  torso  axis  system  by  the  mean  angle  <b  (=  59°)  about 

m 

the  ztg-axis  and  then  rotating  the  intermediate  (primed)  axis  system  by 

the  mean  angle  9  (=  79°)  about  the  y'-axis.  in  this  study,  this  mean 

m 

joint  axis  system  is  also  naturally  selected  as  the  fixed  reference  frame 
(fixed-body  axis  system)  for  performing  the  kinematic  analyses  of  the 

forearm;  the  origin  of  this  fixed-body  axis  system  is  conveniently  chosen 
to  be  the  center  of  the  humeral  head. 

84 


Pig.  5.2  Relative  orientation  of  the  mean  joint  axis  system, 
or  the  fixed-body  axis  system,  (xfb*  yfb,  zfb)  an<J 
the  torso  axis  system,  {xfcs,  Yts'  zt3)  • 

Since  the  upper  arm  is  only  permitted  to  rotate  about  its 
longitudinal  (long-bone)  axis,  its  translational  degrees  of  freedom  are 
prohibited  by  the  shoulder  part  of  the  torso  restraint  shell,  and  the 
other  two  rotational  degrees  of  freedom  are  eliminated  by  fastening  the 
upper  arm  onto  a  rigid  fixture  (whose  direction,  of  course,  is  along  the 
zfb-axis  of  the  fixed  reference  frame)  with  three  Velcro  straps. 

An  orthotic  brace  made  of  heat-moldable  orthoplast  is  used  in  order 
to  mount  the  six  sonic  emitters  on  the  lower  arm  to  monitor  its  rigid- 
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body  kinematics.  TWO  Velcro  straps  are  used  to  hold  the  brace  on  the 
lower  are.  In  addition,  by  letting  the  hand  hold  a  pole  which  extends 
fron  the  brace,  the  wriat  cooplex  ia  fixed  ao  that  the  forearm  muscles 

are  held  in  a  atable  configuration.  This  orthotic  device  thus  eliminates 

the  relative  shifting  motion  between  the  forearm  and  the  brace.  The 
forearm  cuff  with  six  emitters  affixed  to  it  is  then  rigidly  attached  to 
the  brace  by  two  screws.  The  forearm  cuff  is  made  of  a  rigid, 

cylindrical,  plastic  shell  which  extends  about  three-quarters  of  the  way 
around  the  lower  arm.  Zt  is  believed  that  this  orthotic  configuration 
cornea  aa  cloae  as  possible  to  rigid  body  conditions,  and  provides  for 
accurate  measurement  of  forearm  kinematics. 

The  procedure  for  quantitative  determination  of  the  humero-elbow 

complex  sinus  consists  of  the  following  steps:  (1)  immobilising  the  torso 

and  upper  arm,  and  defining  the  fixed  body  axis  system  as  described 

before  (also  refer  to  Fig.  5.2),  (2)  having  the  subject  move  his  forearm 

along  the  maximum  voluntary  range  of  motion  and  continuously  monitoring, 

with  respect  to  the  fixed-body  axis  system,  the  3-D  coordinates  of  a 

distal  point  on  the  moving  body  segment}  this  point  (to  be  referred  to  as 

the  wrist  joint  reference  point)  is  selected  as  being  on  the  longitudinal 

axis  of  the  forearm  at  the  level  of  the  styloid  process,  (3)  fitting  the 

wrist  joint  reference  point  coordinates  to  a  sphere  using  the  least- 

squares  method,  thus  establishing  a  center  for  the  best-fitted  sphere  and 

an  idealized  link  length  (radius  of  the  sphere) ,  (4)  fitting  a  plane  to 

the  same  wrist  joint  reference  point  coordinates  using  the  least-squares 

method;  the  normal  to  this  plane  (specified  by  the  spherical  coordinates 

(d>  ,  0  )  as  shown  in  Fig.  5.3)  establishes  the  pole  (*,  -axis)  of  a  local 
n  n  jt 

joint  axis  system  (for  the  humero-elbow  complex)  with  raspect  to  which 
the  humero-elbow  complex  sinus,  designated  by  the  spherical  coordinates 
{<!>,  9)  of  the  vector  connecting  the  center  of  the  best-fitted  sphere  with 
the  wrist  joint  reference  point,  can  be  expressed  as  a  single-valued 
functional  relationship,  i.e.,  6  *  6($). 

Since  only  the  wrist  joint  reference  point  is  monitored,  the  same 
initialization  procedure  as  that  used  for  the  hip  complex  is  employed. 

Before  the  humero-elbow  complex  sinus  test,  the  subject  was 
instructed  to  move  his  forearm  along  its  maximum  voluntary  range  of 
motion  in  a  counter-clockwise  direction  as  viewed  from  the  sensor 
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rate  of  motion  during  data  collection,  a  large  clock  with  an  easily 
visible  second  hand  was  placed  in  front  of  the  subject.  The  subject  was 
instructed  to  imagine  his  forearm  as  the  second  hand,  and  to  synchronize 
his  circumscription  with  the  clock's  60  second  sweep.  The  firing  rate  of 
the  sonic  emitters  was  set  at  seven  data  records  per  second  (as  used  for 
the  shoulder  and  hip  complexes)  so  that  a  total  of  420  wrist  joint 
reference  points  was  collected  for  each  complete  humero-elbow  complex 
sinus. 

Table  5.1  lists  the  centers  and  radii  of  the  best-fitted  spheres  and 
(dn*  8n)  values  of  the  best-fitted  planes  for  all  ten  subjects.  With 
respect  to  each  individual  local  joint  axis  system  designated  by 
($n#  0n>*  Figs.  5.4-5. 6  show  both  the  raw  data  and  least-squares  fitted 
values  of  the  single-valued  functional  relationship,  i.e.,  0  =  9(<j>)  of 
the  humero-elbow  complex  sinus  for  three  subjects.  In  these  figures, 
only  72  raw  data  points  (approximately  equally  spaced/  were  plotted  and 
used  for  curve-fitting  of  the  functional  expansion,  Eq.  (3.2.1). 
Figs.  5.7-5. 9  display  the  globographic  representations  of  these  three 
functional  expansion  sinuses  with  respect  to  the  fixed-body  axis  system. 

5.3  Determination  of  the  Passive  Resistive  Properties 

Beyond  the  Full  Elbow  Extension 

Since  the  force  applicator  is  constrained  to  motion  in  a  level 

horizontal  plane  by  a  track-mounted  trolley  system  located  overhead,  it 

is  necessary  to  tilt  the  torso,  while  sitting,  11°  (>=  90°  -  0  )  about 

m 

xfc8-axis  so  that  the  upper  arm  is  also  parallel  to  the  ground.  The 
subject  was  first  instructed  to  pronate  his  forearm  to  face  the  ground 
and  to  fully  extend  it.  The  force  applicator  was  then  positioned 
vertically  at  the  same  level  as  the  subject's  forearm,  and  the  transducer 
front  was  positioned  near  the  wrist  joint.  The  subject's  forearm  was 
next  forced  beyond  its  full  extension  in  a  quasi-static  manner  until  the 
subject  started  experiencing  discomfort.  During  the  entire  course  of  the 
test,  the  subject  was  instructed  to  let  his  forearm  hang  limply  and  not 
to  actively  (muscularly)  resist  the  motion  of  the  test. 

The  data  collected  according  to  the  foregoing  procedure  were 
analyzed  as  follows.  First,  the  force  ($)  and  moment  (M)  vectors 
obtained  from  the  force  applicator  transducer  were  used  to  calculate  a 
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Fig.  5.4  Raw  data  and  the  functional  expansions  of  the 
humero-elbow  complex  sinus  for  subject  Ho.  1. 
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Fig.  5.5  Raw  data  and  the  functional  expansions  of  the 
huraero-elbow  complex  sinus  for  subject  No.  2. 
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Fig.  5.6  Raw  data  and  the  functional  expansions  of  the 
humero-elbow  complex  sinus  fot  subject  Ho.  3. 


Fig.  5.7  Globographic  representation  of  Pig.  5.4. 

total  moment  vector  with  respect  to  the  center  of  the  beet-fitted  sphere 
(described  in  Section  5.2) i 

4  4 

•  M  ♦  '  * 

where  r  is  the  moment  arm  vector  from  the  center  of  the  best-fitted 
sphere  to  the  point  of  force  application.  Next,  the  total  moment  vector 
was  resolved  into  components  along  and  perpendicular  to  the  moment  arm 
vector.  The  component  along  the  moment  arm  vector  was  then  discarded, 
since  it  does  not  serve  to  restore  the  forearm  towards  its  full  extension 
position.  Finally,  a  "normalised”  moment  arm  vector  of  unit  length, 
i.e.,  one  meter,  along  the  moment  arm  vector  was  used  together  with  the 
remaining  moment  component  (the  passive  resistive  moment  vector)  to 
calculate  the  passive  resistive  force  vector.  Since  the  moment  arm  is 
normalised  to  unit  length,  the  magnitude  of  the  resistive  force  vector  is 
the  same  as  that  of  the  resistive  moment  vector.  We  shall  refer  to  this 
magnitude  as  the  passive  resistive  force  (moment)  property,  which  is 
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Fig.  5.8  Globographic  representation  of  Fig.  5.5. 


expressed  as  a  function  of  a,  or  the  angular  displacement  from  the  full 
elbow  extension.  In  calculating  this  angle,  the  line  connecting  the 
center  of  the  best-fitted  sphere  and  the  distal  wrist  joint  reference 
point  is  used  as  the  longitudinal  axis  of  the  forearm. 

Figs.  5.10-5.12  show  two  runs  of  both  the  raw  data  and  the  curve- 
fitted  function  values  of  the  passive  resistive  force  (moment)  properties 
for  three  subjects.  The  expansion  function  used  is  of  the  following 
polynomial  form: 

f  (o)  -  +  c2a  +  c3a2  +  c4a3  (5.3.1) 

5.4  Statistical  Data  Base  for  the  Biomechanical  Properties  of 

the  Human  Humero-Elbow  Complex 

Since  the  functional  expansion  used  for  the  burner o-elbow  complex 
sinus  is  the  same  as  that  used  for  the  shoulder  complex  sinus,  the 
statistical  procedure  is  the  same  as  discussed  in  Section  3.6.  Table  5.2 
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Pig.  5.9  Globographio  representation  of  Pig.  5.6. 

lists  ths  expansion  coefficients  of  the  humero-elbcw  coaiplex  sinuses  for 
all  ten  subjects.  Pig.  5.13  shows  the  ten  sinuses  as  well  as  their 
sample  seen,  8(4).  and  8(4)  +  Sq(4).  Pig.  5.14  displays  the  globographic 
representations  of  8  and  8  e  Sq  in  the  fixed- body  axis  systea.  Finally. 
Pig.  5.15  shows  the  8  and  8  +  Sq  curves  for  two  different  runs.  Good 
repeatability  is  observed. 

Table  5.3  lists  the  expansion  coefficients  of  the  passive  resistive 
properties  beyond  the  full  elbow  extension  for  all  ten  subjects.  From 
Bqs.  (5*3.1).  (3.4.6).  and  (3.4.7) «  one  obtains  the  sample  mean, 

f (a)  •  cx  ♦  c2a  ♦  C3a2  +  c4<*3  (5.3.2) 

and  the  unbiased  sample  variance. 

S?(o)  -  S2  +  S*  a2  +  S2  a4  ♦  s2  a6  (5.3.3) 

t  ^  c2  c3  c4 

Fig.  5.16  shows  f(a)  for  all  ten  subjects  as  well  as  their  sample  mean  f 
and  I  S{. 
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f(«)  (N(N-M))  f(e)  (N(N-M)) 


O  5  10  15  20  25  0  5  10  IS  20  25 


a  (DEG  )  a  (DEG.) 


Pig.  5.10  Raw  data  and  functional  expansions  of  the  passive 
resistive  property  for  subject  No.  1. 


0  5  10  15  20  25  0  5  10  15  20  25 

a  (DEG.)  a  (DEG.) 


Pig.  5.11  Raw  data  and  functional  expansions  of  the 

passive  resistive  property  for  subject  No.  2. 
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Pig*  5.12  Raw  data  and  functional  axpanaiona  of  the  passive 
resistive  property  for  subject  No.  3. 


The  fast-increasing  feature  of  the  passive  resistive  property 
reveals  the  characteristic  of  the  articular  check  occurring  at  the  elbow 
joint,  Hunan  tolerance  beyond  the  full  elbow  extension,  based  on  the  ten 
subjects  tested,  is  found  to  be  about  10  to  IS  N(N-N)  at  about  10  to  IS 
degrees  of  hyperextension. 
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Table  5.1  Centers  and  radii  of  the  best-fitted  sphere 
and  ($  .  0  )  for  all  ten  subjects. 


SUBJECT 

No. 


Sample 

Mean 


-0.06 

0.43 

0.69 

1.62 

-1.22 

-0.72 

-0.77 

-0.43 

-1.27 

■1.10 


Sample 
St.  Dev. 


CENTER  (cm) 


28.76 

25.90 
27.11 
28.14 
22.09 
25.00 
26.79 
27.73 

26.90 
26.51 


0.20  26.49 


0.76 


RADIUS 

*n 

(cm) 

(deg . ) 

29.58 

-57.25 

29.62 

-40.57 

29.72 

-57.51 

31.12 

-43.44 

28.38 

-67.33 

29.93 

-55.06 

30.96 

-42.73 

30.24 

-53.74 

29.39 

-37.92 

28.69 

-55.70 

29.76 

-51.14 

0.87 

9.46 

74.47 
71.42 
70.92 
70.21 
58.75 
66.69 
7r' .  45 
68.01 
71.99 
59.94 


68.98 


TvT-  ■ 


5VJ” 


X 

(D 

rH 

Ch 

8 

o 

.  s 

'5 

H 

a> 

o 

M 

<D 


jr:  o 
a> 

a>  -n 
x:  .0 

4J  3 

to 

44 

o  c 

a> 

m  jj 


u 

c. 

0) 


4-1  o 

4-1  4-i 

41 

o  w 

O  <D 


c  a 
o  c 

•r-4  -H 

«1  to 
c 
<0 
ft 
X 

w 


.a 

m 

E-I 


] 


Table  5.3  Expansion  coefficients  of  the  passive 
resistive  properties  beyond  the  full  elbow 
extension  for  all  ten  subjects. 


COEFFI¬ 

CIENTS 

C1 

C2 

C3 

°4 

■ 

mm 

0.97641 

-0.04239 

0.00167 

2 

2.62520 

-0.01258 

mm 

3 

1.21570 

0.41974 

0.04335 

H 

D 

wgm 

0.36091 

0.06439 

-0.00104 

SOBJ. 

NO. 

5 

mm 

0.40776 

0.00224 

6 

2.99000 

0.47401 

0.03703 

-0.00111 

■ 

u 

0.81571 

-0.01229 

0.00029 

8 

1.00290 

0.48261 

wm 

0.00143 

9 

mm 

0.81601 

-0.04942 

a 

10 

1.25800 

ESI 

-0.00158 

0.00031 

Sample 

Mean 

1.01047 

■ 

-0.00187 

0.001L6 

Sample 

Variance 

1.32818 

0.07543 

0.00148 

0.00000 

6.  CONCLUDING  REMARKS 


In  biomechanics  research,  many  random  variables  associated  with  the 
human  body  are  either  normally  distributed  or  have  approximately  normal 
distributions.  Therefore,  a  sample  of  sise  ten  utilized  in  this  research 
is  expected  to  provide  reasonably  good  statistical  estimations  from  the 
analyses  presented  herein.  All  the  results  were  presented  in  a  compact 
format  and  can  thus  be  easily  incorporated  into  the  joint  complex  regions 
of  the  currently  existing  multisegmented  models  of  the  total  human  body. 

From  a  safety  design  point  of  view,  the  maximal  forced  sinus  data 
presented  in  this  work  can  be  considered  as  a  prelude  towards 
establishment  of  a  criterion  for  the  impending  injury  on  the  joint 
complexes  studied.  Any  support/restraint  or  protective  device  should 
have  the  capability  of  restricting  the  range  of  motion  of  the  moving  body 
segment  below  the  maximal  forced  sinus  under  most  types  of  external 
loading  conditions. 

In  conclusion,  it  is  important  to  point  out  that  biological 
materials,  especially  soft  tissues,  display  nonlinear  viscoelastic 
behavior.  if  we  assume  that  the  passive  resistive  response  of  the  soft 
tissues  in  the  joint  complexes  can  be  modeled  similar  to  the  Kelvin 
viscoelastic  material,  i.e.,  elastic  and  viscous  forces  are  additive, 
results  presented  in  this  work  can  lead  one  to  the  determination  of  the 
elastic  component  of  the  passive  resistive  force  (moment)  on  a  particular 
soft  tissue.  Thus,  the  next  important  research  endeavor  should  be  the 
determination  of  the  velocity-dependent  viscous  component  of  the  passive 
resistive  force  (moment)  properties. 


APPENDIX  At  SELECTED  ANTHROPOMETRIC  MEASUREMENTS  OP  TEN  SUBJECTS 
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APPENDIX  Bt  COMPUTER  PROGRAMS  FOR  DATA  ACQUISITION  AND  ANALYSIS 


The  following  computer  programs  were  used  for  the  date  acquisition 
and  the  associated  data  analysis  described  in  this  research  work.  They 
are  derived  from  their  prototypes  used  for  studying  the  shoulder  complex 
(Kngln  and  Peindl,  1985),  and  can  be  used  to  study  any  joint  complex  as 
discussed  in  Chapter  2.  Pig.  B.l  shows  the  flowchart  for  executing  these 


Fig.  U.l  Flowchart  for  data  acquisition  and  associated 
data  analysis. 
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programs.  Data  acquisition  programs  include  LOCATE ,  TNtTr.7, ,  IKKKfN,  ami 

PORClOf  data  analysis  programs  include  RINP4Pr  pohcmo,  and  calkxp.  r<> 

brief  description  for  each  program  in  provided  tie)  aw. 

LOCATE t  Calculates  the  direction  cosine  matrix  and  origin  of  the  RAl.n 
axis  system  in  terms  of  the  sensor  assembly  axis  system. 
Output  from  this  program  is  used  for  determining  the  fixed-body 
axis  system  by  both  KINF4P  and  FORCMO. 

CN1TLS:  Performs  .he  initialisation  procedure  as  described  in  Section 

2.2  for  the  interrelationships  betweeh  the  moving-body  axis 
system  and  the  six  emitters  on  the  moving  body  segment.  Output 
from  this  program  is  used  for  selection  of  the  "most  accurate" 
system  by  both  KINP4P  and  FORCED. 

IEEKIN:  Collects  slant  range  data  Crow  the  six  emitters  on  the  moving- 

body  segment.  This  program  is  used  for  the  joint  complex  sinus 
tests  in  this  work*  and  can  also  be  applied  to  collect  any  hind 
of  kinematic  cata.  Data  from  this  program  are  analyzed  by 
KINF4P . 

FORCIO:  Collects  slant  range  data  from  the  six  emitters  on  the  moving- 

body  segment  and  the  three  emitters  on  the  force  applicator. 
It  also  collects  digital  data  from  the  force/moment  transducer 
by  means  of  a  FORTRAN- call able  macro  subroutine  OSUATD  which 
exercises  the  Data  Translation  DT-1712  Analoq-to-Digit 
converter.  Data  froo  this  program  are  analyzed  by  FORCMO. 

KINF4F:  Analyzes  the  kinematics  of  a  moving-body  segment  with  respect 

to  a  fixed-body  segment  by  selecting  the  "most  accurate"  axis 
system  on  the  moving-body  segment. 

FORCMO:  Analyzes  the  kinematics  (sweeping- type)  of  the  moving-body 

segment  with  respect  to  the  fixed-body  segment  and  calculates 
the  passive  resistive  forces  (moments).  It  requires  the  input 
of  the  coordinates  of  the  beat-fitted  sphere  center  obtained  by 
CALEXP. 
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CALEXP :  Calculates  the  center  end  radius  of  the  beat-fitted  aphere  to 

the  joint  complex  ainua  by  least-squares  Method.  It  alao 
calculates  the  beat-fitted  plane  to  the  ainua  and  then 
tranaforee  the  ainua  data  into  functional  celationahip  with 
reapect  to  the  local  joint  axis  ayaten.  Finally,  the 
functional  expansion  of  Bq.  (3.2.1)  la  used  to  obtain  the 
expansion  coefficients  for  the  joint  oonplex  sinus. 
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urav  jiwtiiifl  vm 


IRA  CSIM  I'jGJ  U \J*LTd 


i  ■  **  *rv«  v  tMiniMSi  iwittitfv 


PROGRAM  LOCATE 


C 

C  THIS  HOOKAH  USES  EMITTER  DATA  FROM  THE  'RAL6'  TO 
C  CALCULATE  THE  DIRECTION  CORINE  MATRIX  AND  ORIGIN  OF 
C  AN  AXIS  SYSTEM  IN  RRACE  HITH  RESPECT  TO  THE  SENSOR  SOARS 
C  AXIS  SYSTEM 

C 

LOGICAL*!  RECOAT <R|f S) » TEMF(SS) 

LUtilCALIi  KlNANEdS) 

DIMENSION  RECAD<20>»P0INT<4»3>»PTAV8<4»3>»D£V<4»3> 

DIMENSION  AVGPT<4»J>»PTl<3>tPT2<3)»PT3<3>»PT4<3URAlDAX<3»3) 
DIMENSION  CNTPT(3)»0UTPUT(24*»V(4»3)tA<3)»i<3> 

Real  Li»t.2 

INTEGER  1PARAM(4*3« »DSN»IOST (2) » I0SD(2) .PRLACA) »CMDA(2) 
COMMON  /AC/  L1»L2 

DATA  IKEC/l/CHDA/'.T ' » 'XP'/N/0/KDIV/l/PTAV8/12*0»0/ 

DATA  AVCPT/l2tO.O/ 

i' 

C  CREATE  I  OPEN  OUTPUT  FILE 
WRITE<5«5) 

RKAD(b»10*  <FlNAM£(l)tI«l»13) 

CALL  ASSIGN  (ltFlNANEil3> 

JEFINE  FILE  1  <2»48»U»IREC> 

C 

C  GET  THE  BUFFER  ADDRESSES 

CALL  GETADR<IFARAH(i»i)iRECOAT<lii>) 

CAU  GETAPR<IPARAH<i»2)»RECDATU»2>> 

CALL  GETADR(IPARAHU»3)tRCCDATU'3>> 

CAU  0ErADRUPARAMU»4)»RECDAT<U4>) 

CALI  6ETADR{IPARAM(l»5)»RCCDAT(lt5>) 

IPARAM(L*»1)*88 

tPARAM(2*2>«88 

IPARAM(2f3>«88 

1PAKAM(2»4)'8R 

IKARAM(2»S>«00 


J 

i 


1 

j 

S 


f 


C  AlTACH  I EEL  BUS 


CALL  WTO  IQ  -  M420.2flMlOSTi.DSH) 

IFi OSH. HE. I) TYPE  *»'  IEEE  DUS  WILL  NOT  PICK  YOU  UP  TODAY!' 
(MDSUtNE.l)  GO  TO  2000 

IF (TOST <1).NE«1> TYPE  *.'  IEEE  DUS  WILL  NOT  PICK  YOU  UP  TODAY!' 
IMIOST(i),NE.l>  GO  TO  2000 
CALL  GET  ADR  <PRLA<1)»CMDAU>> 

PRLA<2>*4 

i 

C  SET  UF  DIGITIZER  AS  TALKER 

(ALL  UIQ10  *N20f2»l»»I0ST.PRLA»DSU> 

1MDSW.NE.  1  >TYPE  *»'  IEEE  DUS  IS  NOT  TALKING  TODAY!' 
lfvDSW.NE.l ‘  60  TO  2000 
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jf<;mtu>'NE>4>tyk  *>'  im  mu  ti  not  talkin*  today! 
If(IOITU).NC.l)  00  TO  3000 
c 

C  RfAD  FIVE  6CT8  OF  POINT  VALUES 
C 

KOUNT-I 
00  TO  30 

30  CALL  HAZTFRUO) 

iO  CALL  QIO(*40OO»2tlOM(OSI(|)iIPARANU»K0UNT>iDSN> 

KOUH?«KOUNm 
IF(KOUNT.CO.e)  60  TO  50 
60  TO  20 

50  CALL  NAITFRI 10) 

CALL  NTO!O(*2OOO»2»4t»!0lTf iHN) 

CALL  CLRCFiiO) 

c 

c  CALCULATE  THE  AVERAGE  VALUES  FOR  THE  FOMA  POINTS 

l 

55  fcO  100  KNT«1»5 
KOIV«KNT-N 
DO  AO  11*1.88 
TEHP(I1)-AECDAT(U»KNT) 

60  CONTINUE 

DECODE  (08»300>TEHP)  <RECRD<KK)»KK«1»30> 

IF<K*8T«1)  00  TO  AS 

TYPE  *» 'SLANT  RANGE  VALUES  FOR  FIRST  RECORD)' 
MRITE(5»900) (RECRD(LK) » LK«4»20> 

65  CALL  CQORD<RECRD»POINT»KNT> 

DO  70  JK"lt4 

IF (POINT (JK.l).NE. 0.0)00  TO  70 

«RITE<5»5A0)KHT 

N*NF1 

IF(N*EQ.2>  TYPE  *» '  TWO  RECORDS  CONTAIN  ZERO  VALUES.  * 

*  .'JOB  FAILED* 

IF(N.EQ.2>60  TO  2000 
60  TO  100 
70  CONTINUE 
no  ?o  j*i»4 
DO  60  1*1 *3 

fTAV6iJ»I)«PTAV6<J*I)AP0INT<J»I) 

AV0PT(J,I)*PTAVG<J»I)/KOIV 

DEV<J»I)«ADS(AV8PT(J»I)-P0INT(J»I)) 

IF(DEV(JiI).LT.0.25>  00  TO  80 
URITE(5»S40) 

80  CONTINUE 
VO  CONTINUE 
100  CONTINUE 

1*0  110  JJ*1?3 
PT1(JJ)«AV8PT<1»JJ) 

PT2(JJ)«AV8PT(2»JJ) 

PT3(JJ)«AV6PT(3fJJ) 

•^(JJlaAVePTUfJJ) 

110  CONTINUE 
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:.0  ill  I  *  1 » 3 

»‘a.i>«n2(n-FTKi) 

,u»I>*PT4(I>-PTl!l> 

.*{  **1)*PT3(I)-PT2!I> 

.  ;  0>*PT4vI)-PT3(I) 
v  ».I)«PT2!I>-PT4<I> 

111  CONTINUE 
00  a  12  1*1*4 

V1.1>«V!M>*42+V<I»2>M2+V(I»3>**2 
LM»t>*SQRf!V!l*l>> 
ii:  CONTINUE 

i, 

C  CALCULATE  THE  AXIS  SYSTEM  !RALDAX)  AND  ORIGIN  (CNTPT) 

L 

00  120  1*1*3 

A(I)*PT4!I)-PT2!I) 

R(I>=PT3(I>-PT2(I) 

120  CONTINUE 

ALL  DRCHAT(A»B»RALDAX) 

Mi  130  J*l»3 

t-NTPT( J)*PT1(J)-8.4914RALDAX(1*J) 

130  CONTINUE 

AO  140  h*l»3 

OUTPUT (K)*PT1!K) 

vHTMJT(N«)»RALDAX(l*K) 

OUlPUltKEA>*CNTPT(K> 

UU IPUT !  K+9 1 -PT2 !K) 

OUTPUT <K+12)«RALDAX(2»!0 
OUTPUT vK+15)*PT3(K) 

OjrPUT<KH8>«RALDAX(3*K) 

UtllPUT(K+21  >-PT4(K) 

1  AO  UiNllNUE 

it 

KALE  INFORMATION  IN  DATA  FILE 

u 

wKtTf\5*580) 

DM  TE<  3.600)  (0UTPUT<I)*I«1*9> 

UKlTEv5»700>  ( OUTPUT! I)*  1*10*15) 

^n£vS*700)  (OUTPUT!!)*  1*14*21) 

JPTTE(5»800)  (OUIPUT(I)*  1=22*24) 

CRITE<5.820> 

OKI Ic (3- 840)0(1*1) *0(4* 1). 0(2*1) *0(5*1 )*V(3»1) *0(4*1) 

WRITE  vl'IREC)  (OUTPUT(I) *1*1*24) 

I'i  'TSE  (UNIT-1) 

ChLL  CL  REF  1 10) 

'  '  ;rtAT(  *  'Enter  the  mm  to  b*  sivon  to  tht  dot* 
it  i  le  C 3-1 33 • '  • 

1M  t  .  ‘rt,VIM3Al) 

:•(*(.  KlFhAI !4(F1.0*4F5.2*1X) ) 

L-40  )  iji* rtA  T  ( '0  »  INACCURATE  COORDINATE— DEO.  EXCEEDS  .25CH' ) 

Ft  IF  nATI'O'*'  RECORD  NUMBFRi  '.13.'  CONTAINED  ZERO  OALUES  AND 
i  HrtS  BEEN  DELETED.') 


Ill 


580  FORMAT! 'T14»  'POINT  COORDINATES' *TS2*'PLATF0RH  AXES  w.r.t. 

IBQARD ‘ *  T94  * ' CFNTERPOINT  <BA8 *>'»/> 

600  FORMAT!'  ' *T10*3(F8»2)»T50>3(F9«4)»Tf2»3(F8.2)) 

700  FORMAT! '  '»T10*3<F8.2)»?S0i3<F9.4>> 

800  FORMAT!'  ' iT10*3(F8«2)) 

820  F0RMAT!'O'  *T14*  'DIMENSIONAL  CHECKV/Y5*  'LGTH  U*2*l-3»1«4>«4* 
I83e*' »T40» 'LGTH  !2-3»3-4i4-2>7.47c«'  »/> 

840  FORMAT! '  ' >T10* 'L0TH12* ' »T18tF5*2»T45» 'LGTH23*'iT53»F3»2/ 
IT10» 'LGTH13*' *Tl8»F3«2tT45» 'L0TH34«'*t53»F5.2/ 

IT10* 'LGtH14»'*T18»F5*2»T45» 'L8TH42*' *T33»F5*2> 

900  FORMAT! '0'*4<F3.0f4F7»2»4X)> 

2000  STOP 
END 
C 

c 

SUBROUTINE  DRCMAT!A»i»G> 

C 

C  THIS  SUBROUTINE  CALCULATES  THE  DIRECTION  COSINE  MATRIX 
C  FOR  AN  AXIS  SYSTEM  BASED  ON  TWO  CQPLANAR  VECTORS  <A  and  B). 

C  THE  RESULTING  MATRIX t  C»  18  ORTHOGONAL  AND  UNITARY* 

C 

DIMENSION  A<3) *B<3)*C(3*3) 

AHAG»SQRT(A<l>**2+A(2>tt24A<3)tt2> 

BMAG*SQRT(B(1)M2+B(2)»»2+B(3)*t2) 

C(2*1>*A(1)/ANAG 

C!2»2>«A(2)/AHAG 

C<2»3)*A(3)/AMAG 

C(3tl)*B(l)/BMAG 

C(3»2)»B(2)/BMAG 

C(3»3)«B(3;/BMA6 

C(l*lXC!2i2)*C!3*3)>-<C<3*2)#C(2*3)) 

C<1*2XC<3*1>4C<2»3>>-!C<2»1>*C<3.3>> 

C(1»3)«-;C(2»1)*C(3»2))-<C(3»I)IC(2»2)> 

C(3.1)-(C(lf2)*C(2*3>)-<C(2»2)»C(l»3)) 

C(3i2)«(C<2il)*C(l»3))-(C<l>l)IC(2»3)) 

C(3.3)«(C(l»l)*C(2f2))-<C(2»i)*C<li2)> 

00  10  J»l*3 

CMAG«SQRT<C<  J»l)**2*C(J»2)«2+C(  Jt3)**2> 

DO  5  >1*3 
C(J.I)«C(J*I)/CMAG 
5  CONTINUE 
10  CONTINUE 
RETURN 
END 
C 

c 

SUBROUTINE  COORD < RC2DAT » POINT i KNT ) 

C 

C  THIS  SUBROUTINE  COMPUTES  THE  X*Y»Z  COORDINATES  FOR  THE  SPARK 
C  GAPS  IN  THE  BOARD  REFERENCE  SYSTEM  BY  PERFORMING  CALCULATIONS 
C  ON  THE  SLANT  RANGE  DATA  FROM  THE  FOUR  CORNER  MICROPHONES 

C 

DIMENSION  RC2DAT < 20 ) i POINT (4*3) 
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INTEGER  CASEtKNTtSU 
REAL  L1.L2.K1 

DATA  Ll/167.75/.  L2/111.&G/.  Ki/3.90/ 

CASE-0 

J=1 

do  no  i-i»i6»s 

SUM 
KM  l 

ll<KCn<AHm>  .til.  O.Oi  KMKNFi 
1F'\RC2DAT ( IF2)  .£0.  0.0)  KMKKM 
lFiRC2MT<I*3>  .CO.  0.0-  KK-KK+1 
If  (RC2DAT ( IF4)  .CO.  0.0  •  KMKKF1 
IKKK.0T.2)  CO  Ul  115 
Pa=RC2DAT(  IU> 
rit=kC2DAT  <  1+2) 

FC*Rc2DArU+3> 

IP=RC20AI(IF4) 

IF'iPU.GEiFA.ANO.Fb.GE.FD.AND.FO.GE.Fd  CA3EM 
IF < PC . GE . FA . AMD .FC.6E.Fb. AMD . FC.6E.FD »  CASE-2 
IF  ( PO .  GE .  PA . AMD . Fb .  £.£ .  F C . AND . PD ,  6E . F  D)  CASE-3 
lF(pH.CE.F'b.AMb.FA.6E.FC»AND.PA.6E.PD)  CASE-4 
IF (PD  .EG.  O.Oi  CASE-1 
IF (PC  ,EQ.  O.Oi  CASE -2 
IF' (PD  .EG.  0.0)  CASE *3 
IF ( Pm  . CO «  O.Oi  CASE  =4 
GO  TO  <oO> 70. GO. 90. .CASE 

t.0  xi  miPA+KI  )**.?-(  <FDFK1)*42)+L1U2)/(2.04L1» 

IF  ( ADMXC )  .61  .ADSvPAFKn )  60  TO  114 
HM*PGtKl>442  <(PC4K1>442)4L.J4621/<2.0*12> 
n  -3URI i vl  A IK  1 .*42* XC442) 

IMADS(YCi.bl  .PI  )  GO  10  114 
/() \  \PF'<462*YC442> 

GO  To  100 

70  XCM(FA+Kl>442-(iFb+Kl>442>+L1442>/<2.06ll> 

IF(ADS(XCi.GT .hDSvFAFKI))  GO  TO  114 
YCM<Pb+Kli4*2MiPD4Kl>442HL2**2)/<2.0*L2> 
PP*3GKT  (  (F'h+KI  i442-XCI42> 

IF \ADS(YCi  .6T .F'F'i  60  TO  114 
ZC-SQRT <  (F f  )442-YC4l2> 

GO  TO  100 

oC  Xt-<  iPl+Kl  >442  •(  <P0+K1  >442m.i4*2>/(2.04Ll> 
1FiAl»S(XC>.61  ADS(PCFK1>>  Gp^TOf  114 
it  =  <  <PAli.l)46:!-uPCFKl*642>k5462)/(2,04L2) 
Ff-SORTuPC+Kl  i*42  -XC442< 

(i  (  GhF  -L.  -YC 

IrtAl&i  YCClMPi.Gr.IF *  GO  TO  114 
ZC- SGF I ( ( F  F ) 442- 1 LC0NP442 i 
00  TO  TOO 

A/  xi!  -\uCFKl/4»2  MHi+K)  )442)FU442)/(2.04L1 ) 
IF(ABS(XC).6T.AbS(FCFKl))  60  TO  114 
(C=\ lPtFKl)4*2-( (PDIK1 )442)4L2442)/(2.04L2) 
PP-SQfiT( <PC+K1)442-XC442) 

YCC0rtP-L2-YC 
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IF<A&S!tCCONf>.Gt,PP>  60  TO  114 
ZOSORT  (!PP>M2*  TCCQNPM21 
100  FOINT!J»I)*XC 

POINT! J.3>-Z0 

j*ju  ■■*■• 

.  .■  00  TO  110'  ■  ■ 

114  $«*1  ■  ■' 

WRITE<5.20C>J»KNT 

L'OO  FORMAT ! '0' » ■  ST  ARKEK '  1 14 » '  IN  REC..I3.'  INVALID  ) 
US  POINT! J»I)*0.0 
POINT! J»2>*0.0 
POINT! J.3)=0,0 

■  4*J4l ;  ;  ■  ’  ■  ■; 

IFlSW  .Ed.  -1)60  TO  110 
URlTEtS.l30>J»KNT 

130  F0RNAT1  '0'  . ' SPANKER '  .14.'  IN  REC. ' .  13.  IS  ZERO' ) 

no  continue 

RETURN 

END 


PROGRAM  INITLZ 


C 

C  THIS  PROGRAM  SPECIFIES  THE  INITIAL  POSITIONING  CF  THE  ARM 
C  CUFF  WITH  RESPECT  TO  THE  HUMERUS.  IT  CALCULATES  THE  JOINT 

C  CENTER*  LONG  BONE  AXIS*  AND  HUMERAL  AXIS  SYSTEM  WITH  RFSPECT 

C  TO  ALL  THE  AXIS  SYSTEMS  WHICH  CAN  BE  OBTAINED  BY  THE  VARIOUS 

C  COMBINATIONS  OF  THREE  CUFF  EMITTERS.  IT  ALSO  ESTABLISHES  A 

C  CRITERION  FOR  IHE  CHOICE  Of  THE  THREE  POINTS  BY  MEANS  OF 

C  INTER-EMITTER  DISTANCES  AND  AXIS  SYSTEM  SKEU  ANGLES. 

C 

LOGICAL*!  RECDAI U 98 * 5  > » TEMP < 1 ?8  > 

LOGICALI1  FlNAHE (13) 

DIMENSION  R'ECRD(45)»FQINI  (9ti;»PTAVGi?»3) *D£V(9*3) 

DIMENSION  AVGP f (9 > 3 >  * VECMhG <15** C05MA 1(60*3) 

DIMENSION  DRCQSt  3*  3 ) *NVEf.  i  '20*4) *t.BVEC(3>  t  JNTUEC<20*3> 

D Inf NCI ON  JlVEClt»*3  • .HI (3) *H2i2) *H3<3> *HUHAX(2*3>  *HUhDRC(86>3j 
DIMENSION  TEHF2<3*3> *Fl (3) *G1 (3) »V<5»4> 

REAL  LDVEC* JIVCC* JNlVlC.LbhAG’Ll *L2 

INTEGER  IfARAn<S.i.).(lSU*103r(2)»I0SB<2)*PRLAIAl.CMDA(2) 

DaIm  lKCC/l/CftDA.  /■  .*LF  /N/0/KDIV/l/PTAVG/27*0.0/ 

DATA  AVUF'T/2710 .0/  JI'.EC /lS*0.v/ 

Dr. In  NVEC/1 ilil.l* 2 *2* 2*3*3 *4»ato*&* 7*7*8* 10* 10* 11 *13*6*7*8*9 
2*10*1 1*12*13*.  14.15*10*1 1 *12* 13* 1**15* 13* 14*15*15*2*3*4*5* 3*4*5* 

24*5.5* 7.8*9*8.9.9.11, 12, 12*14*2,2*2.2.3.3*3.4*4*5*3*3*3*4*4*5,4 

:  i.A.SfS/  1 

COMMON  /AC/  VEC (15* 3)  I 

C  I 

C  CREAVE  l  OPEN  UUIPUT  FILE  \ 

U."  .  -  -  "  -1 

UF.  I  IE  It,. 5)  j 

REAMS.  10>  IF 'iMAMEtD.I  1.13/  I 

Chit  ASSIGN  ( 1 .FlNAHE .13)  I 

DEFINE  FILE  1  v8?<i,:,U.  IREC)  j 

C 

C  DEI  UIE  BUFFER  ADDRESSES 

C  .  j 

CALL  GET  ADR i 1 P ARAM ( 1  *  1 ) » RECDAT  < 1  *  1 ) )  • 

CALL  GE1  ADK‘<  IFARAMi  1*2)  *RECDAT(  1*2)  >  1 

CALL  GE  T  ADR ( I F  AR AH < 1  *  3 ) *  RECDAT i 1  *  3  > ) 

CALL  GE T ADR < IPARAH  < 1  *  4 ) > RECDAT <  1 1 4 )  > 

CALL  GETADP<IPARAM<1.S).RECDAT<1.5)) 

If ARAhiZtl i*19d 
IhAKAHC,  2/  =  19S 

lFARhH(2.3)-19cl  '! 

II  ALAM»2.4)  =  196  1 

lf'Hf.nH(2»S)s198  I 

i; 

i.  ..I  I  ALII  IEEE  DUS 

I  ! 

i  All  WIGIQ  \ * 1420* 2* 1 » * IOST * *DSU) 
if  (DSU.NE.l)TYPE  **'  IEEE  &US  IS  NOT  ATTACHED!' 

If (DSU.NE.l)  GO  TO  2000 

lf<IOST(l).NE.i)TYPE  IEEE  bUS  IS  NOT  ATTACHED!' 
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}FfIQSm>.*E.n  GO  TO  2060 
CALL  GETADR  <pRLA<l).CHDAU>> 

PRLA<2>M 

0 

C  SET  UP  DIGITIZER  AS  TALKER 

C 

CALL  WTUIO  (•420.2.I.»I0BTtPRLA»DSU> 

IF<DSW.NE.1>  TYPE  DIGITIZER  IS  NOT  TALKING!' 

IFOi&U. NE.i)  GO  TO  2000 

IF ( IOST < 1 ) .NC • 1 > TYPE  *»'  DIGITIZER  IS  NOT  TALKING!' 
IP<IQST(1).NE.1>  GO  TO  2000 

C 

C  READ  FIVE  SETS  OF  NINE  POINT  VALUES 
C 

KOUNT*i 
GO  TO  30 

20  CALL  WAITFRUOi 

30  CALL  Q10( * 1000.2 . *0. » IQSB( 1 ) » IPARAHi 1 rKQUNT ) » DSU) 
KOUNT-KOUNTH 
IF<KRUNT.EQ.o>  GO  TO  SO 
GO  TO  20 

SO  CALL  UA1TFRU0/ 

CALL  WTQ10<"2000.2.1..IG$T*.DSW> 

CALL  CLREF(10> 

C 

C  CALCULATE  THE  AVERAGE  VALUES  FOR  THE  NINE  POINTS 
C  . 

55  Ml  TOO  KNT*1.5 
KDIV*KNT-N 
00  SO  11-1*196 
TEriP  ill)  =RECD AT  < 1 1 .  KNT ) 
oO  CONTINUE 

DECODE  <196.300. TEMP )  ( PECRD  <  KK  >  *KK- 1 1 45  > 

URI TE ( 5 . 1003 )  KNT»( RECRD <KK).KK=1.20> 

Wftl Tfc ( 5. 1004 ) < RECRD (KK ) »KK*21 . 45 ) 

CALL  CQ0RD<RECRB.P0INT.SW.KNT> 

DO  70  JK=1 .9 

IF (POINT (JK.l I .NE.O.O)  GO  TO  70 

URITE(5.5<»0i  KNT 

N*Nd 

1F<N.EW.2)TYPE  *.  TWu  SWEEPS  CONTAIN  ZERO  VALUES.  JOB  FAILED! 
IF<N.EQ.2>  GG  TO  2000 
60  TO  100 
70  CONTINUE 
HO  VO  J*1.9 
DO  30  1*1.3 

PTAV6 ( J . I ) *PTAVG<  J. I ) 4P0INT  <  J .  h 
AVGPT( J.i)*PTAVG( J.II/KDIV 
DEV(J.I)*ADS<AVGPT(J.I)-POINT(J.I>) 

IF(DEV( J.D .LT.0.25)  GO  TO  80 
WRITE<5.540> 

60  CONTINUE 
90  CONTINUE 
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Hiy  lion  I  IMUt, 

UNITE i5»3) 

3  F  QRlKiT  < '  0 ' ) 

FYFE  *•'  AVERAGE  COORDINATES  W.R.T.  SENSOR  BOARD i ' 

TYF'E  X  Y  2' 

TYPE  *»'  ' 

DO  101  1*1.9 

TYPE  A.'  STARKER  I' »I»(AVGPT(I» J)»  J=l»3> 

101  CONTINUE 

DO  lOOl  1*1 >3 

Va.l>=AV6PT<2»I)-AVGPTU»I> 

V  <  2 » I ) *AVGPT  <  A • I > -AVOPT  <  3  >  I ) 

V  <  3 » I ) - AV6PT  <  6 . 1 ) -AVGPT i 5 » I > 

V ( 4 » I >  * AVGP  T  <  8 » I ) -AVGPT  <  7 » I ) 

V(5»  1  ;=AV6PT<9» I )-AVGFT  i8.I  > 

1001  CUNFINUE 

HO  1002  I*l»5 

V(l.4>*S0RT»VU.i>**2EVU»2)A*2EV<I»3>**2> 

1002  CONTINUE 
WRITEvS.BOO) 

WRITE (5.801 )V<l»4).Vi2»4).V(3.4)tV(4»4)»V<5»4) 

C 

C  CALCULATE  THE  20  POSSIBLE  VECTOR  TRIADS  FOR  THE 
C  VARIOUS  COMBINATIONS  OF  3  CUFF  EMITTERS 
C  1ST.  CALCULATE  ALL  THE  VECTORS 
C 

KK*1 
L=  1 

102  JJ«L+1 

no  104  H-JJ.A 

VEC  <  KK . 1 > “AVGPT i  H » 1 ) -AVGPT (L.l) 

VEC<KK.2)*AVGFT(H.2)-AVGPT(L.2) 

VEC(KK.3)=AVGPT<N.3)-AVGPT(L»3) 

KK*KK+1 

104  CONTINUE 
l*LU 

IK \L*LT «o) GO  Tu  102 
C 

c 

DO  lOb  1=1.15 

VECllAUI  1  )=VECv  1 » 1  )**2TVEC(  1 . 2>4*2+VECU  »3)**2 
VI  ChAli  «I ) = SORT  ( VECHAG  (I)) 

105  CONTINUE 

DU  109  1=1. 15 
DO  1 00  J* l .3 

VI  C. 1  * J> • VECl 1 . J)/VELMA6< I ) 

JOO  CONTINUE 
109  CONTINUE 

r. 

C  CALCULATE  THE  POSSIBLE  AXIS  SYSTEMS 

C 

T.r>  ;i> 

nu  Ibu  rt=1.20 
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K"NVEC<H.1> 

L*NV£C(H»2> 

CALL  DRCMAT<K.L» ORCOS) 

DO  HO  J*1 .3 
00  130  N*1 »3 

COSMAT  <  KK+  J » N ) = ORCOS  <  J.  N  > 

130  CONTINUE 
140  CONTINUE 
KK*RK+3 
ISO  CONTINUE 
C 

C  CALCULATE  THE  JOINT  CENTER I  WHICH  IS  LOCATED  AT 

C  THE  CENTER  OF  SPANKER  7  I  8.  AND  STORE  IT  IN  AV0FT(7»I) 

C 

00  145  1*1*3 

145  AVGPT(7»I>*<AVGPT<7»I>+AVGPT<8.I)>/2.0 
C 

C  CALCULATE  THE  VECTORS  FROM  THE  ORIGINS  OF  THE  VARIOUS 
C  AXIS  SYSTEMS  TO  THE  JOINT  CENTER 

C 

DO  180  1*2.5 

JTVECd  » 1 )  «AVGPT  (7.1)  AVGPT  <  1 . 1  i 
JTVECd»2>*AVGPT<7.2)-AVGPTd»2> 

JTVECII. 3) »AVGPT(7»3)-AVGPT< 1.3) 

180  CONTINUE 

C 

C  CALCULATE  THE  HUHLKAL  AXIS  SYSTEM 

C 

DO  1S1  1*1.3 

H3d>=AVGPT<9,l>-AVGPT<7.I) 

H2d)*AVGPT(8,I)  AVGPT(7.I) 

181  CONTINUE 

CALL  CR0S(H2.H3.H1 ) 

00  182  1*1.3 
HUMAX(l.I)*Hl(l) 

HUMAX<2»I)«H2d> 

182  HUHAX ( 3  > I ) =H3 ( 1 ) 

C 

c  calculate  each  joint  center  and  humeral  axis  system  in  terms 
c  of  each  local  axis  system 

c 

K*0 

CALL  MINV(HUMAX.3»0fF1.6i) 

00  190  1*1.20 
DO  185  J* 1*3 

DRCOS  <  J  *  1 ) *COSHAT  ( K+ J . 1 ) 

ORCOS ( J . 2 ) *COSMAT <  K + J » 2 ) 

ORCOS ( J . 3  > -COSMA  T ( K  T J . 3 ) 

185  CONTINUE 
L*NVEC(I»4) 

JNT VEC (1 . 1 ) *ORCOS  (1 . 1 ) 4 JT VEC ( L . 1 ) + ORCOS ( 1 . 2 ) 4 JT VEC ( L .  2  i  + 
iDRC0S(1.3)*JTVEC(L»3) 

JNTVEC d . 2 ) «ORCOS < 2 » 1)4 JT VEC < L . n+ORCOS < 2 » 2 > 4 JTVEC <L » 2 > + 
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&DRCOS  <  2 » 3  >  * JtWEC ( L » 3  > 

JNTVEC<I.3)«DRC0S!3.1>4JTyECvL.mDRC0S<3.2>4JTVEC!L.2>  + 

IDRCQS ( 3 1 3 )  4 JTVEC  ( L .  3  > 

CALL  GMRRD<DRC0S*HUHAX.TEHR2»3f3*3) 

1*0  187  J*lt3 
HUnDRC!K+iiJ>*TLHt2!J»l> 

HUMDRC!Kt2* Jl^TEMF^l J»2) 

187  HUMDRC<K«.J>*TEMf'2*J.3) 

K*Kt3 

190  CONTINUE 
C 

C  WRITE  DATA  TO  DATA  FILE 
C 

DO  750  1*1. o 
DO  749  J»l*3 
WRITE <  1  *  IREC  )AU6F'T(  l  *  J) 

749  CONTINUE 
75v  i.ltNTINUE 
L<0  760 

HI*  759  J- 1  ♦  3 

WRITE! 1 'IRfcC)CGSrtAT(I.J) 

759  Continue 
7oO  CONTINUE 

tiO  7mO  1*1  •  20 
00  779  J*1.3 

UR  I  IE(  1  'IREC) JNTVECII* J) 

?79  CONTINUE 
7bO  i.uNl  INUE 

00  790  1=1.60 
00  789  J-i .3 

WR1  ICU'IREOHUMGRCII.J. 

709  CUN f INUE 
790  CONTINUE 
C 
C 

i  t  USE  < UNI T  - 1 1 

t. 

r 

t: 

i All  CLREF(IO) 

5  FORhATI » 'Enter  the  rune  to  be  given  to  the  data 
If »le  CS-13I1 ' ) 

10  FORMAT  ( 13A1 ) 

300  F0RMAT!9(F1.0*4F5.2.1X)> 

540  FORMAT! 'O'. 'INACCURATE  COORDINATE— DEV.  EXCEEDS  .25CM') 

560  FORMAT! '0'» 'RECORD  NUMBFRt  .15.'  CONTAINED  ZERO  VALUES  AND 
i  HAS  BEEN  DELETED.') 

i)00  FORMAT!  '0' .  'DIMENSIONAL  CHECK— LOTH!  1-2)  =9. 48c*'  »T50.  LOTH 

t!3-4)=9.58c*'.T80.'L0TH<5-6)^9,52c*'.T110.'LGTH!7-8)=2l.92CM' 
IT  140* 'LOTH! 8-9)  -15. 10CM' ) 

1101  FORMAT*  0'.T5»  CALCULATED  LENGTHS I  = ' . T  30. F5 . 2  *  T59 » F5 . 2 » TB9  * 
IF5.2*T120'F5.2*T150*F5.2) 

1003  FORMAT (  O' . 'RECORD! SWEEP)  NO, '  .I27lX»4*F3.0.4F7,2.2X) > 


J  o  u  u 


1904  FORMATS  ' r5<F3.0»4F7,2t2X> ; 

2000  STOP 
END 

C 

r. 

SU+RGUFIQC  CUORD < RC2DAT tFOlH I » SW, KOUNT > 

THIS  SUBROUTINE  iOMPUlES  THE  *»Y»2  COORDINATES  FOR  THE  SPARK 
CARS  IN  THE  DGhRD  REFERENCE  SYSTEM  BY  PERFORMING  CALCULATIONS 
ON  THE  SLANT  RANGE  DATA  FROM  THE  FOUR  CORNER  MICROPHONES 

DIMENSION  RC2DAT<45)»P0INT<9*3) 

INTEGER  CASEtKOUNTtSU 
REAL  L1»L2»K1 

DATA  Ll/147. 75/»  L2/U1.80/t  Kl/3,90/ 

CASE«0 
J»1 

DO  UO  1*1 .41*5 
SH»1 
KK*l 

IF<RC2DAT(I+1>  .EG.  0.0)  KK-KK+1 
IF<RC2DAT( 1+2)  .EQ.  0.0)  KK«KK+l 
IF<RC2I<AT<  t+3>  .EO.  0.0)  KK*KK+1 
IF<RC2DAT<IH<  .EQ.  0.0)  KK-KK+1 
IFiRK.GT.2)  GO  TO  115 
FA«RC2DAT(l+l) 

P6«RC2DAT<I+2/ 

PC*RC2DAT< 1+3) 

PD*RC2DAT< I+4> 

lF<fd.6E.F'A.  AND.Fb.Gc.FB.AND.FD.GE.PC)  CASE=1 
IF<FC.GE.PA.AND.PC.GE.FB.ANR.PC.OE.PD)  CASE* 2 
lHF&.GE.PA.AND.PR.GE.FC.AND.PB.GE.PD)  CASE* 3 
II  (FA.GE.PB.AND.Ph.GE.PC.AND.PA.GE.PD)  caseh 
IF  <FD  .EQ.  0.0  CASE  *  1 
IF < PC  .EQ.  0.0)  CASE*2 
IF (F'R  .EQ.  0.0)  CASE-3 
IF(Fh  .EQ.  0.0>  CASE-4 
60  TO  <o0»70»8C>90) tCASE 

60  XC*  <  <  PA+K I )  4*2-  <  <  PB+K1 )  442 )  +L  1442 )  /  <  2 .  OIL  l ) 

IF  < ADS < XC ) .  GT  •  ADS < F'A+K  1 ) )  GO  TO  114 

YC*  <  <  PA+K1 ) 4*2  - < ( PC+K1 ) 4*2 ) +L2442 ) / <  2 . 04L2 ) 

PP*SGRT  <  <  F  A+K 1 ) 4  42-XC442 ) 

IF< AES( YC> ,GT .PP)  GO  TO  114 
2C«S0RT<(PP)**2-YC**2) 

GO  TO  ICG 

70  XC*  u  F  A+K  1 )  442  < « F  B  +K 1 )  4*2  >  +L  U42  >  /  <  2 . 04L 1  > 

IF<A&S(XC,.GT.hDS<FA+K1)<  GO  TO  114 
TC*( <F‘B+K 1)442' <  <PD+K1)442)+L2442)/<2.04L2) 

PF**SQRT  ( (FA+K1  »442-XC442 ) 

IF(ABS(YC).6T.Ff)  GO  TO  114 
ZC*SQRT  <  <  FF  >442- 1 C442 ) 

GO  TO  100 

80  XC=i  (PC+K1  )442-<  <FD+Kl)442)+L1442)/<2.04H) 
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IF(AB3lXC).QT.ABS<PC*Nl))  09  TO  114 
Y C « < ( FA4K 1 ) *42- < ( PC FK 1 ) 4*2 ) 4L2442 > / ( 2 . 04L 2 ) 

PP*SQRT ( (PC+Kl I442-XC442) 
vrr i'mp  ii  •)-vr 

IF(ABS(YCC0HP) .GT.PF )  SO  TO  114 
Zt=3GRT<  <PP)**2-YCC0HP**2) 

GO  TO  100 

90  XC«uPCttiI  >4*2-i  vHrtKi)**2>4Ll**2>/(2.04H> 
lFlA83<XC).GT.ABS<PCFKl)>  60  TO  114 
YC*(<F‘BFKi)B42*<  <PD+K1 )442)+L2442)/(2.04l2) 

PP*SORT  ( <  PC+K1 )  442-XC442  > 

YCC0MF-L2-YC 

IF(ABS< YCCQMPl .6T.FF )  GO  TO  114 
ZOSQKT  ( (PP)442-YCC0MP442> 

100  POlNTiJ#l)«=XC 
P01NT(J»2>»YC 
I0INTU.3WC 
Gil  lu  11? 

114  .->0-1 

UR l  I  t  ( 5 » 200 *KC21M1U>  »ROUNT 

200  I  UDiiAT v ' 0' »  SPhRKFR' iF3.0» '  INREC.'»I3»'  INVALID') 

US  POINT!  J»1  )«=0«0 
PQINTU*2)«0.0 
POINT! J»3)~0i0 
IKlSU  .ECl.  -DGU  TO  117 
UKITEi5t 130)RC2DAT!D iKOUNT 

130  FORMAT! '0' * 'SPARKER' *F3.0» '  INREC,'.I3.'  IS  ZERO') 

117  J=JP1 
110  CONTINUE 
RETURN 
END 
C 

tUbhuUTINE  CROS<A.b*C> 
l; 

C  IIIIS  SUBROUTINE  CALCULATES  A  UNIT  VECTOR  (C)  WHICH  IS  PERFEN- 
C  OICULAR  TO  THE  PIANE  CONTAINING  THE  VECTORS  A  AND  B.  NOTE 

C  THAT  THE  VECTORS  A  ANb  b  ARE  RETURNED  AS  UNIT  VECTORS' 

C 

DIMENSION  A(3)>b<3) ?C<3* 

AHAG<=SGRT  <A!1 >442FAt2)442FA(3>*42) 

1<NAG-SQRT<B<  l)442lb(2>442+P(3)442> 

A ( 1 1 -A  < 1 1 /AHAG 
A(2)=A(2)/AMAG 
A(3)-A<3)/AHAG 
0(1)  b(l)/BMAG 
b(2)  Di2)/BMAG 
Di3j  |;i,l)/BHAG 
i«U  =  u.<2)4B(3)i  tb<2)4A(3)> 

CuV ■  (A(3)4BU))-(B(3)4A(D) 
i:<3)-iMU)*6<2>i~(b<l>4A<2>> 

Ki:  I  I'lvN 

FNli 
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SUBROUTINE  DRCNAT*K»l.C> 

». 

(■  THIS  SUBROUTINE  CALCULATES  THE  DIRECTION  COSINE  MATRIX 

FOR  AN  AXIS  SYSTEM  IA8ED  ON  TUO  CORE ANAR  VECTORS  (SPECIFIED 
BY  K  tod  L>»  THE  RESULTING  MATRIX.  C.  IS  ORTHOGONAL  AND 
UNITARY . 

DIMENSION  A<3>.B-3>»Cv3.3> 

INTEQFR  K»l 

COMMON  /AC/  VEC<15.3> 

C 

1*0  2  1*1.3 
A(l)«VEC(K»l» 

•<n*VEC(L.t) 

2  CONTINUE 

AMAa*SSRT<AU>**2+A<2>t*2+A<3>«*2> 

BMAG*SORT (1(1) 4*2  ED ( 2 ) 442EB (3)442) 

C<1»1)«A(I)/AMAG 

C(l.2)*A(2)/AMA6 

C(1.J)«A<3)/AMAG 

C(2.1>*I(1)/8MAG 

C(2.2)*B(2)/BMAG 

C(2.3»«»(3)/BHAG 

Ci3*i)»<CU.2>4C(2.3>)-(C(2»2>ACU»3>> 

C(3.2)*(C(l»3)*C(2»l))-(C(2.3)*C(I.t>) 

C(3.3)*<C(l.l)tC(2»2))~(C(2.1)4C<l»2>> 

C<2.1i«(C(3»:)*Cil.3>>-(C(l»2)*C(3»3>> 

C\2.2t*(C(3.3*4Cvl.l »)-(C(3.i)4C(1.3>) 
C(2.3)*(C<3»li*C<1.2))-(C(l.l>*C(3»2>> 

DO  10  J»1.3 

CMAG*SORT(Ci J»  I >442+C< J.2>4A2)C( J.3)442) 

DO  5  1*1.3 
C< J.I *=L( J» I »/CfWb 
5  C0H1IHUE 
10  CONTINUE 
RETURN 
END 
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iSOGRAM  1EEK1N 
C 

C  THls  PROGRAM  COUECTS  THE  SLANT  SAME  VALUES  FROM  THE  SONIC 
C  DIGITIZER  FOR  SIX  EMITTERS  USING  THE  ICC-4GS  INTERFACE.  THIS 
C  SATA  IS  USES  FOR  KINEMATIC  ANALYSIS  OF  THE  MOVING  ROSY  SEGMENT « 
C 

DIMENSION  OUTPUT <5* 30) > RECORD! 24) 

DIMENSION  0NEREC<30> 

VIRTUAL  DIGIUF<I000»2A> 

I  OGlCM.il  TRANS<«*0) 

L06ICAUI  RECDATt6*0*2> 
lOGlCALtl  FNAMEUJ) 

INTEGER  irARAM<6*2)»IQSD<2*2)*»RlA(a>»CHECK2 
iNltGLK  IPaRM<6)*!0STQP(2)*DSU*CMDA<2) 

INTEGER  COLUMN* TEST<1)*CHECK»SU*K0UNT*10ST<2) 

UmTa  TEST /*i/CHECK/0/COLUMN/l/KOUNT/0/ 

DATA  CMbA/'-V » 'XPV 
OAT A  NODE/ l/LM0DE/2/RR£C< 1/ 
i; 

i;  INPUT  DATA  FlLENAnE  AND  I  OF  RECORDS 
C 

URlTEiSiA) 

URITE(S*S) 

REAIU5»10>  iFNArtEU  >*1-1.13) 

UKIIE(S.IS) 

READ  <5*20)  NREC 
NDkV-NREC/*j 

i: 

i:  OPEN  TEMPORARY  DATA  FILE  FOR  INCOMING  SLANT  RANGE  DATA 

C 

OPEN  *UNII-l»T»Tt-'  SCRATCH  *  .FORM* '  UNFORMATTED  ’ ) 

C 

C  GET  THE  DUFFER  ADDRESSES 
C 

CALL  GETADRv IF ARAMi 1 » i ) »RECDAT ( 1 » i )  > 

CALL  GETADRUPARAH(1»2>*REC0ATU»2>) 

IPARAM<2*1)*460 
IPARAMl2*2)«660 
CALL  G£TADR\ IPARH<  1 > .TEST v  1  > ) 

IF ARM! 2 )• I 
C 

C  ATTACH  IEEE  DUS 

C 

SAIL  UTOTO  <‘i4..Wilt»lGSI**DSU) 

IFCDSU.NE.l)  TYPE  ♦.  IEEE  DUS  HILL  NOT  PICK  YOU  UP  TODAY*  * 
lFTDSU.NEi 1 >  GO  TU  2000 

If  ilOSTin.NE.l)  TiFE  ».  IEEE  DUS  HILL  NOT  PICK  YOU  UP  TODAY •  ‘ 
IFilOSTiD.NE.l)  CO  TO  2vM>0 
CALL  GETADR  CPRLAC  U*CMDA(  1) ) 

PRLAC  *>c4 
t: 

C  SET  i Hr  DIGITIZER  AS  1ALRER 

C. 


CALL.  WTQld  <M20»2»1»*IO|T»PRLA*D8W> 

if(dsw>ne«d  rm  *•*  me  am  it  not  talking  ioday< 

IF(R8W'NE«1>  00  TO  2000 

IF<!00T(1>.HE.I  >  TYPE  It'  tCC£  MIS  18  NOT  TALKING  TODAY* 
1F(I0ET<!>.NE.1)  00  TO  2000 
C 

C  QUEUE  THE  FIRST  1/0 
C 

CALL  Q10<*10O0»2ilOMlOS0ailltIRARAN<ltl)»0fiN) 

C 

C  INITIALIZE  THE  NUlfOCR  OF  RECORD*  TRANSFERRER 
C 

100  NNODE-HOIE 
HODEtHOOC 
LHOKaNHOfiC 

C 

C  WAIT  FOR  THE  DUFFER  TO  FILL 
C 

CALL  WAITFRUO) 

CALL  QIO<MOGO»2tiOttlOSR<l»NdRE)tIPARAM(l»MODE)tl)SW> 
IFtCHECK  »E0»  HDIVIOO  TO  1200 
URITE( 1 ) (RECOAT ( I tLNORE ) » I«1 » AoO) 

C 

C  INCREMENT  THE  NUHICR  OF  RECORDS 

C 

C0LUHN*€0LUHNF1 
CMECK«CQLUNN-1 
GOTO  100 

1200  CMECK2*CHECKtG 
WRITE <S»45)CHECK2 

C 

C  READ  SLANT  RANGE  DATA  FROM  DISK  AND  CONVERT  TO 
C  X'Y'Z  COORDINATES 

C 

REWIND  1 

C 

DO  980  K«1 .CHECK 
READ(l)(TRANS(I>'I*lt*40> 

DECODE  ( o«0t 530 t TRANS) ( <0UTFUT(JtKK)tRK*lt30) * J«I *5) 
IF(K.NE. CHECK)  GO  TO  901 
TYPE  «» 'SLANT  RANGE  DATA  FOR  FINAL  RECORD! ‘ 

URITE(5>  1010)  (OUTPUT  (StLL)  iLL*-l » IS) 
WRITE(5tl01S)(0UTPUT(5iLL)tLLsl«t30) 

901  IHK.GT.l)  GO  TO  902 
TYPE  It 'SLANT  RANGE  DATA  FOR  FIRST  RECORD!' 

WRITE(5t 1010) (OUTPUT (ltLl)tLL* It  15) 

WRITE (St  1015) (OUTPUT (l»LL)tLl=lftt 30) 

902  DO  900  11*1 tS 
DO  910  JJ*lt30 
ONERECi  JJ)*OUTFUTUItJJ/ 

910  CONTINUE 

CALL  COORD(ONERECtRECORDtSWtKOUNT) 

IF(KOUNT  .6T.  0)  GOTO  920 


U4 


Wkm<5.S35>  iFNAHEU  >.1*1.13) 

WRIfl<5.540>  (RECQR0U).I«1»20> 

URirt!5.545>  ! RECORD! I >.1*21.24) 

#20  Du  #30  J*l»24 

BltifcUf t UtlNINTtl  >  .  J>  ‘RECORD!  J> 

910  CONTINUE 

bO  940  1*1.30 

tMCHtCi  i>m>.o 

940  CON  UNO* 

M  950  1*1.24 
RECORD! I  1=0.0 
450  CONTINUE 

N0UNT»K0UNT41 

9ft0  CONTINUE 

DO  970  1*1.460 

TR4NS!!)*'  ' 

970  ■  CONTINUE 

980  CONTINUE 

1500  CLOSE  (UNIT*! . 

C 

C  01 EN  KATA  FILE  FOE  CONVERTED  DATA  AND  WRITE 
L  EMITTER  C00RMNA1E  DATA  TO  DISK 

C 

CM l  ASSIGN  (1.FNAHE.13) 

DEFINE  FILE  1  !NREC.48»0.RREC> 

DU  1550  I-l.NREC 

UR1TEO  ’KRECHRISRUF!  I?  J> .  J*1.24) 

1550  CONTINUE 

CLOSE  !UN(T*1> 

CALL  UT010< *2000.2. 1..I0ST..DSW) 

UftITE!$»555>  (FNAhE! I ) .1*1.13) .KOUNT 
CALL  CLREFvlO) 

4  FORMAT! 'O'. 'NOTH  allowable  t  of  records  it  1000! 

4  Urero.;.  10H  seconds) ' »/.  ’  Records  oust  bo  allocated  in 
4  increments  of  5!'»/Y> 

5  FORMAT! '«'• 'Enter  the  nooe  to  be  alvei,  to  the  data  file  CS-1331  ’) 
10  FORMAT (13A1) 

IS  FORMAT! '♦' . 'Enter  the  nuober  of  records  (disitiser  sweeps)  to  b 
te  allocated  to  the  data  file  CN-53.  'i 
20  FORMAT! IS) 

45  FORMAT! 'O'. 'SUCCESS.  .14.'  SWEEPS  RECORDED  IN  TEMPORARY  FILE.) 

S30  F0RHAT(30!Fi«0»4F5.2.1k) ) 

535  FORMAT! 'O'. 'PROCESSED  DATA  FOR  FILE!  '»13A1‘ 

540  FORMAT!  0'.5<F3.0. 31"'. 2i) 

545  FORMAT! 'O'. l!F3. 0.31/. 2)> 

555  FORMAT!  O'.'DAIA  WR1T1EN  10  DISK.  -.13A1.  CONTAINS '» 15.*  RFCQRD 
IS. '  > 

540  FORM..!  <  '0  .  RECORD  NUMDEK.  .15.'  lUNIAINLD  ZERO  VALUES  AND 
%  HAS  DEEN  DELETED. '  1 
1010  FORMAT i "O' .31F3.0.4F7.2.4X) < 

1015  FORMAT!  ' .3<F3.0»4F?.2.4Xi ) 

2000  STOP 
LND 
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n  no  r> 


SUBROUTINE  COORD < RC2DAT »RC3DATiSWtK0UNT > 

C 

THIS  SUBROUTINE  CONFUTES  THE  X»Y*Z  COORDINATES  FOR  THE  SPARK 
GARS  IN  THE  BOARD  RFFFRt-NCE  SYSTEM  BY  PERFORHING  CALCULATIONS 
ON  THE  SLANT  RANGE  DATA  FRO N  THE  FOUR  CORNER  H1CROPHONES 

DIMENSION  RC2UAT t 30 > »RC3DAT ( 24 ) 

INTEGER  CASEiKOUNTiSW 
REAL  Ll»L2.Ki 

DATA  11/1*7. 7b/»  L2/U1 .80/  t  M/3.90/ 

CASE-0 
K-0 

DO  110  I-li2o»b 
SU-1 
KK-i 

IF'RCSVATUM)  .EG.  0,0)  KK-KKF1 
IF (RC2DAT ( 1+2/  .EG.  0.0)  KK-RK+i 
IF<RC2DAT<H3)  .EG.  0.0)  KK-KK+1 
1F(RC2DAT (1*4)  .EG.  0.0)  KK-KM 1 
IFIKK.GT .2)  GO  TO  llii 
PA-RC2DATU+I) 

PB-RC2DAT (1+2) 

PC-RC2DATUF3; 

FD-RC2DAT(I+4 ) 

IF  < f U . GE . PA . AND . PD . GE . PB. AND . F  D . GE . PC )  CASE- 1 
IF<PC.GE.Ph.AND.PC.6E.PB.AND.PC.GE.PD>  CASE-2 
I F ( PB . CE . P A . AND . P  D . GE « PC . AND • PB • 6E . PD )  CASE -3 
IF(PA.GE.F1.AND.PA.GE.PC.AND.PA.GE.P0>  CASE-4 
IHPD  .EG.  0.0)  CASE-1 
IF t FC  .EG.  0.0<  CASE-2 
li  (PB  i EG.  w.O.i  CASE-3 
IF(Ph  .EG.  O.G<  CASE-4 
GO  TO  \S0> 70.Civ> 90) (CASE 
60  XCM(Fh+Kl)**2~uFBTKl)**2)+LU*2>/<2.0*Li) 

IF ABS(XC  >  .GT.  ABS<FA+Ki ) )  GO  TO  114 

VO(  iPh4K1>**:-  ( <PCtKl  >**2)+l2**2)/<2.0*L2> 

F  P-SORl  <  '.PATK I  )  ♦*:•  XC442) 

IF  UtDS(YC) . CT . F P i  GO  TO  114 
2C*5GRT(  <PP)44.:-YC442> 

GO  TO  100 

70  XC-  ( ( F'A+K  1 >*<2 - u  PBFK1 ) 4*2  >  *L 1 4*2  > / <  2 . 04L 1 ) 

IF(hDS(XC) ,GT .ABSvPAFKl ) )  GO  TO  114 

YC*< (PB+KI )*»2-< iFD+KI )**2)+L2*42)/<2.04L2) 

FP-5QRT ( <  PhFKI ) 442-XCU2 ) 

IF(ABS(YC).GT.FF)  GO  TO  114 
2C-SQRr((PF)**2-rC<*2) 

GO  10  100 

80  XC-i (FC+Kl )**2- < «FO+M)*42)+L1**2)/<2.0411 ) 

IF .ASSIXC) <GT.hB5«PC+R1) )  GO  TO  114 
lC-i»FA+Kl)**:-uPC4Kl)4*2)+L2**2)/<2.0*L2) 

PP*SORT( (PCTKi  '442-XC442) 

YCCGNP-L2-YC 

IF\ABS<YCCOHP).GT.FP)  60  TO  114 


ZOSORT  ( ( RP )  **2-YCC0HF  **2 > 
i»0  TO  100 

Vo  XC-(  (F'C+Kl  )**2-\  UGFK1  *i*2)+ll442)/(2.0*Ll ) 
tF^6S<XC).GT.Hb5>vf-C*K»))  00  TO  U4 

<(FDiKl)**2)+L2t*2)/(2.0*L2) 

F P*S0kT  ( < K*K  1 )  M2  XC*»2  > 

yrrnMt'ii  '‘-sc 

IF(ABS<YCCOrtF‘).uT.Ff‘)  60  TO  114 
2C=SQKT(  (PP)**2-rCC0Ht>«2> 

100  RC30ATa-K>«RC2DATiI> 

RC3DAK I-K+l )=XC 
RC3DAT  ( I-K+2)r-  fC 
RC3DAT ( I-K13)*ZC 
00  TO  11? 

114  SU-1 

UR  I TE  v  5 » 200  >RC2I*AT <1 )  »KQUNT 

200  FORHATl 'O' .'SPARKER' *F3.0» '  INREC.'*I3»'  INVALID' ) 

115  KC30AT ( I -K  > *RC2GAT < I > 

RC3DAT ( I-KE1 )=O.G 
KC3DAT< I-K+21-0.0 
Ki:.niA1<I-KF3)=0,0 
IMhU  .t‘0.  -1  >G0  TO  117 
URITE ( 5 » 130 ) RC3DAT < I -K > . KOUNT 

13G  FORhAR  0' * '3PARKER' »F3.0» '  IN  RFC. 'iI3f '  IS  ZERO') 
117  K=K*1 
110  CONTINUE 
RETURN 
END 
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PROGRAM  FCRCIU 


THIS  PROGRAM  COLLECTS  THE  SLhMT  RANGE  VALUES  FROM  THE  SONIC 
DIGITIZER  AND  SIX  CHANNELS  FROM  THE  A-TO-D  BOARD  AND  USES 
THE  IEEE-488  INTERFACE.  THIS  DATA  IS  USED  FOR  FORCED 
KINfcHATIC  ANALYSIS  OF  IHE  MOVING  BODY  SEGMENT . 

DIMENSION  OUTPUT ( 45) t RECORD 1 33 > 

VIRTUAL  DIGBUF < 198  . 156  > » ATDDAT <6.156) 

LOG I CAL *1  BIGDUF » TRANS( 198  > 

LOGICAL*!  RECDATi 198.2) 

LOGICAL*!  F NAME <13. 

INTEGER  IPARAN<o»2).lOSD<i*2)»PRLAi6)»CHKMNl 
INTEGER  I P ARM <  6 > . I OSTOF  <  2  > • DSU • CHDA ( 2 ) 

DIMENSION  SUM(o.:)»ATD0UT<6) 

INTEGER  COLUMN . TEST ( 1 ) » CHECK . SW » MOUNT . IOST ( 2 ) 

DATA  TEST /*■ 1 /  CHECK/O/ COLUMN.' 1 /KGUNT /O/ 

DAI  A  IKEC/l/CMDA/'w?' » 'JLPV 
DATA  MODE / 1 /L  MODE/ 2/ 

CREATE  i  OPEN  OUTPUT  FILE 

TYPE  *.  NOTE!  Hu;  maianuit  nusber  of  records  allowable  is  155.' 
TfPE  %>'  Ihis  is  aM-rox.  19.5  seconds.' 

WRITE <5.5. 

HEAD <5.10:*  <FNAME<  I)  .1-1.13) 

URITE<5.15) 

READ  <5.20)  NREC 
HR£C*NREC*2 

CALL  ASSIGN  vl.FNAHE.13) 

DEFINE  FILE  1  <rtREC»66.U.IREC> 

GET  1HE  DUFFER  ADDRESSES 

C*LL  oETADRUF  Ai\AH<  1.1 )  .RECDAT<  1.1)) 

CALL  GET ADR  < I P ARAM < 1 . 2 ) . RECDA  T  < l . 2 ) ) 

1FARAM<2.1)-198 
IPARAN<2.;?>slV8 
CALL  GFTADRv IPAKM< 1 > . TEST < 1 ) ) 

IPARM<2>=1 


ATTACH  IEEE  DUS 

CALL  UTQIQ  (• 1420.2.1.. IOST.. DSU) 

IF<DSW.NE.1>  TYPE  *»'  IEEE  BUS  WILL  NOT  PICK  YOU  UP  TODAY!  ' 
lF(DSU.NE.l)  GO  TO  2000 

IF(I0ST(1 ) .NE. 1 )  TYPE  *. '  IEEE  BUS  WILL  NOT  PICK  YOU  UP  TODAY!  ' 
IFUQSTUl.NE.l)  GO  TO  2000 
CALL  6ETADR  (FftLAd).CMDAd. ) 

PRLA<2)=4 

SET  UP  DIGITIZER  AS  TALKER 
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CALI;  U1GIQ  « »42o*-2*  1 . » IOST. FRLA.DSH) 
lfdiSU.NE.l)  TYPE,*,'  IEEE  BUS  IS  NOT  TALKING  TODAY!  ' 
IFi&SW.NE.l)  GO  10  2000 

lF(IOSTU).Mt.i)  TYPE  IEEE  BUS  IS  NOT  TALKING  TODAY!  ' 

imosmi.NEm  go  to  2000 

c 

L  QUEUE  THE  FIRST  I/O 

c 

CALL  QIO<  *  1000. 2. 10. . IOSRi  1  *  1 ) » IFARAMI 1 1 1 ) » DSU) 

DO  25  1*1.12 
DO  25  J=32»37 
K=J-31 

CALL  OSUATDU.O.IDATA.ISTAT) 

DATA*IDATA*0, 00030571578 
SUH<  K » 1 >  *  SUM <  K » 1 > + DATA 

25  CONTINUE 

C 

C  INI  UAL  I ZE  THE  NUMBER  OF  RECORDS  TRANSFERRED 

C 

100  NMQDE=MODE 
MQDE-LMODE 
LnODE - RHODE 
C 

l  WAIT  FOR  THE  DUFFER  TO  FILL 

C 

CALI  UA1TFRU0* 

CALL  OIO<,1000.2.10».IQSBU»MODE)»IFARAM<1»NQDE>»DSM) 

1  DO  90  1-1.198 

DIGDUF < I . COLUMN 1 =RECDAT < I.LMODE > 

90  CONTINUE 

DU  JO  1=1*12 
HO  30  J=32»37 
K=J-31 

CALL  OSUATIU  J.O. IDATA. ISTAT) 

DATA® I DAT A*0 . 00030571578 
SUM<  K . MODE ) -SUM <  K • MODE ) +DATA 

30  CONTINUE 

2  DO  35  1=1*6 

ATDDA  T ( I . COLUMN  >*SUH< I.LMODE) 

SUM! I.LMODE) =0.0 

35  CONI INUE 

IF v CHECK  .EQ.  NKEC+DGOTO  1200 
C 

C  INCKI  HINT  THE  NUMBER  OF  RECORDS 
C 

COLUMN -COLUMN! 1 
CHECK-COLUMN- 1 

corn  loo 

1200  CHKHNl -CHECK  -1 
UR1TE(5»45)CHKHN1 
DU  999  K-i .CHECK 

00  998  1*1.198 

TRANS  < I ) =B IGBUF ( 1 »K ) 
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998  CONTINUE 
C 

C  DELETE  1ST  RECORD  FOR  SETTLING  PURPOSES 
C 

IFvK.EG.DGO  TO  3 
C 

C 

DECODE  <198 *530* TRANS)  <OUTPUT*J) . J*1 »A5> 

DO  997  I»l*6 

hTDOUT ( 1 )*ATDDAT  < 1 » K  > 

RECORD  < 27* I > = AT BOUT (1)10.083333 

997  CONTINUE 

CALL  COORD ! OUTPUT t RECORD i SW.  ROUND 
lP(KQUNT  iGT.  G>  GOTO  993 
994  WRITE<5»535)  !FNAME!I).I*i.l3> 

WRtfE!5*540>  !RECORO(I)*I=1.15) 

WRITE <5*545)  !R£CQRD<1>*I=16*27> 

WR{TE!5.55C)  (RECQRDU)  *1=28*33) 

993  WRITE (t ' IREC )  ( RECORD! I > » I »1 *  33  > 

DO  899  1*1 *45 

OUTPUT (I) =0.0 

899  CONTINUE 

DO  886  1s1m> 

ATDOUT! 1)*0.0  ' 

888  CONTINUE 

DO  300  1*1*33 
RECORD*! >-0.0 

300  ■  CONTINUE  v:'  •..'•••  • 

DO  867  1*1*198 

TRANS! I)*'  ' 

887  CONTINUE 

KGUNDKGUNT+1 

3  CONTINUE 

999  CONTINUE 

1500  CLOSE  (UNIT=1) 

ChLI  UTQIQ! ‘2000*2*1*  >IOST*DSW) 

WRITE<5»555>  (FNhNE(I) • 1=1*13) iKOUNT 
CALL  CLREFUO) 

5  FORMAT! 'I' * 'Enter  the  neae  to  be  given  to  the  dat a  file  CS-133!  ') 
10  FORMAT! 13A1> 

15  FORMAT! 'I'* 'Enter  the  nu*ber  of  records  (disitizer  sweeps)  to  b 
♦e  allocated  to  the  data  file  CN-53S  ') 

20  FORMAT! 15) 

45  FORMAT! 'O'* 'SUCCESS.' .16. '  SWEEPS  RECORDED. ' ) 

530  FORMAT(9(F1.0*4F5.2*1X) ) 

535  FORMAT! 'O'* 'PROCESSED  DATA  FOR  FILES  '*13A1) 

540  FORMAT! '0-»5<3F7. 2)) 

545  FORMAT !'©'*4<3F7,2)) 

550  FORMAT!  0  *6F17« 9) 

555  FORMAT! 'O'*  DATA  WRITTEN  TO  DISK.  '*13A1.  CONTAINS' *15* '  RECORD 
IS.') 

560  FORMAT!'  '.RECORD  NUMBER!  '*15.'  CONTAINED  ZERO  VALUES  AND 
I  HAS  BEEN  DELETED.') 
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2000  STOP 
END 

SUBRQUT m  C00RD(RC2DAT »RQ3DATt SUtKOUNT  > 

C 

C  THIS  SUDROUTINE  CONFUTES  THE  X.Y»Z  COORDINATES  FOR  THE  SPARK 
C  GARS  IN  THE  BOARD  REFERENCE  SYSTEM  BY  FFRFORHING  CALCULATIONS 
C  ON  THE  SLANT  RANGE  DATA  FROM  THE  FOUR  CORNER  HICROFHONES 
C 

D I HFNSION  RC2DA  T . 45 ) t  RC3DAT  <  33  > 

INTEGER  CASE* FOUNT  tSU 
REAL  Ll.L2.kl 

DATA  L1/1G7.7S/.  L2/111.60/.  Kl/3.90/ 

case-o 

J*0 

lib  110  1*1.41.5 

SG*1 

KK'l 

lF(KC2DATiIil>  .EH.  i).ui  kk*KKFl 
IF(RC2DAT (1+2)  .Eli.  O.Oi  KMkkFl 
IE<RC2I<AT<  H3i  ,£U.  0.0 >  Kk«KK41 
lK<RC2DAt<H4i  .Eft.  O.Oj  KK=kkFl 
IKKK.UT.2t  GO  TO  115 
PA=RC2bAT  ( I F 1  > 

FB-RC2DAT<1F2> 

FC~RC2DAr<lf3# 

» It  Rt2DATU14) 

1 1  <PD. Gfc  .  1 A .  AND  .E  D. GE .  Fb .  AND . PH . GE .  PC )  CASE- 1 
li;  (FC  .GE.FA.ANb.FC.GE.FB.AND.PC  .GE.FD)  CASE=2 
IF  aD.GE.PA.AND.FB.GE.PC.AND.PD.GE.PD>  CASE>3 
II  aH.GE.PB.HND.PH.GE.PC.AND.PA.GE.PD>  CASE=4 
If  *P0  .Ell.  0.0)  CA5E=1 
IF (PC  .EG.  0.0>  CASE-2 
IF(FB  .EG.  0.0)  CASE' 3 
IF  (FA  .EG.  G.O)  CASF.  -4 
(■0  10  (fcOi  70.  GO .90)  » CASE 

An  XC-\  (FA+K1  >441  -t<PbFkl>442HU442>/<2.04Ll> 

IF ( AiS(XC) .  GT,  ADSUA+kl ) >  GO  TO  114 
VC*< (PAFkl>442-( <PCFkl)442HL2442)/<2.04L2> 

PP-SORT  ( (PtYFkl  >442~XC442> 

IMABS(YC).GT.PP)  GO  TO  114 
ZC-SDKT < (PP>442-  YC442) 

00  10  100 

70  XC-uFAFM)**;!-  < a B1K1 )442>+L1442>/<2.04Ll > 

IF < ABS(XC) .GT .AB.MFAtKl > >  GO  TO  114 
iKuPBFKl  >**:»-<  <Pb*M>442m.2442>/<2.04L2> 

F  F  -SGkT  ( <f  AFK1  .442-XC442) 

IF<ABS<YC< .GT.PP)  GO  TO  114 
2C=SQRTuPP>442-YC44?> 

00  TO  1  •  »0 

Oo  ilM  FCFkl)442"UFli+U>442>FL1442>/<2.04H> 

IF (ADSiXO .GT .ABSiPCfkl >  >  GO  TO  114 

.1  ( (PAFKl )442-  ( <PCf kl  )442)+L2442)/(2.04L2) 

PP*S(lK  r  <  (PCFM>442-XC442) 
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YfTflfcPsI  y»" 

IF  ( 4BS<  YCCONP > . 6T . PP  >  60  TO  114 
ZC«S0RT  <  <  PP  >  *  *2-YCCQHPM2 > 

00  TO  100 

90  XC*<  iPC+Kl  >4*2-1  <PD4K1  >**2>*U**2)/<2.0*U  > 

I F  <  ABS  <  XC )  •  GT  .ABS<PCFK1>)  GO  TO  114 

VC»  ( (PB+K1  >4*2- <<  PD4K1 )  4*2 )  f  L2442 >  f  <  2 . 04L2 > 

PP*SORT U PC1K 1 ) 442-XC442  > 

YCC0NP-12-YC 

IF  <  APS <  YCCQNP  i . 6T . PP )  60  TO  114 
ZC=SORT(  (PPU42-YCC0HP442) 

100  RC3D*r<J+l)*XC 
RC3B*.r(J>2>=YC 
RC3B*»T<JF3)*ZC 
GO  TO  117 
114  SU*-1 

UR I TE < 5 » 200 ) RC2DAT t I ) » KOUNT 

200  FORMAT! '0»'SPhRKER'*F3.0»'  IN  REC. '  »I3t '  INVALID') 
US  RC3MT<J+l)*d.O 
RC3W)T( J+2)*Q.O 
KC3HATU+3>«0.0 
IFiSU  .10.  -1)00  TO  117 
UR 1 rE(5> 130>RC?DAT 1 1 )» KOUNT 

130  FORHAT( '0' » 'SPARKER' iF3.0» '  INREC.'*I3»'  IS  ZERO') 
117  J-J+3 
110  CONTINUE 
RETURN 
END 

> 
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PROGRAM  KINF4P 


C 

[HIS  PROGRAM  ANALI2ES  THE  KINEMATICS  OF  A  MOOING  6001  RELATIVE 
TO  A  FIXED  BODY .  IT  REQUIRES  THE  INPUT  OF  A  LOCATOR  FILE  (FOR 
THE  FIXED  BODY).  AN  INITIALING  FILE  (FOR  THE  MOOING  BODY)  AND 
A  KINEMATIC  DATA  FILE. 

DECLARE  i  TYPE  VARIABLES)  DIMENSION  ARRAYS)  INITIALIZE  CONSTANTS 

DIMENSION  SHL JNT ( 4 ) . EDOU J 1(4). ANGOUT * 4 ) 

DIMENSION  CIL0C(3).RC2DAT(2«U.FNTK(o»3) 

DIMENSION  RC1DAT(24).0EC1<3).VEC2(3).VEC3(3> 

DIMENSION  Fl(3>  .EKRT0T(20»3)  .£LBJN?(3)  .ELBCNK3) >CSMATi3>3) 
DIMENSION  Gl<3)»TAAT(3»3).CUEC(3).HUMDRC(o0»3>.HUH(3»3> 

DIMENSION  LB0EC13) .CH I OEC i 3). T2< 3. 3) » T1 (3.3) .121(3.3). FDCNT( 3) 
DIMENSION  L0C0GN(3).JTCNT<3mANGS(3>»LGB0EC(3).JNTCNT(3> 

DIMENSION  L  BOEC 1  ( 3  > .  I.  BVEC2  ( 3 ) » I.  GOEC  t  ( 3 ) .  L  G0EC2  ( 3 ) 

I  OGlCM.lt  J1NAME<v).SNAME(2S).MESS(S0mF1NAME(13>.F2NAME(I3> 
LOGICAL)!  F3NAAL1 1 J > .DAYtV ) >HOUR<S) *F4NAME< 13) »F5NAME< 13) 

10G1CAU1  FoNAML  ( !  3  > 

1NTEGF R  ANS.Y »N. IF  I \ 20) » IRIAD.CaSE .ANS2 
REAL  JNIVEC.LBVEC iLOCOGNi JTLNT .LG60EC 
REAL  JNICNT .1  BUtCi,LfeVEC2.LGOtCI.LGVEC2 
tunnuN  /AC/  FNTI*a.3).(u5nATio0.3)»C0STRNid0.3).DRC0S(6d.3>. 
*DIxCTKN<60.3).TRIAD(2C.3).JNVOEC(20.3> 

DAI  A  IKLC/l/JREL  ••  l/KREC'l  ’Y."Y  VN/'N'/KOUNT/l/ 

DA  I A  I.MREC/ l'LRLC.'i '  nREC/ 1  / 

L  PRunli  FOR  dimension-:.  DATA  FILES  AND  OUTPUT  INFORMATION 
C 

SOS  UR  1 1  l  l  S .  5  j 

READ* K»iERRs5*.‘Si  *,)TNAME<  D.I-1.9) 
titu  UK  1  IHii.15) 

RE AD ( S 1 20 » ERR • j 1 0 )  iSNAMEi I ) . 1  =  1 .25) 

SIS  URllEtS»25> 

R)  AD  *  !>  •  iOi  ERR- j  1  li .  *  nEGS  *  I ) » I  - 1 .80 ) 

S20  Ulail<S.3S) 

M./»  iS.40.ERR-i.20)  (FlNAME<I)»I*i.i3) 
tiJj  UP-,  i-.i5.45) 

READ  (5*50.ERK-S2tii  NREC 
i.27  UK1  IE  <S»51 ) 

L  EAD  *  S . 40 . ERR-S2 / ) ( F2NAME U ) » I =1 » 13  > 
titi'i  URlTEiS.85) 

READ*  5. 40.ERR=S55) *F3NAnE( I ) . 1  =  1 .13) 

‘J34  URITE(5.431) 

RLAli(5.4J2.ERR=534)NANS 
SiO  UMTE*5.55) 
l«.iS  WRITE  (5.  SO) 

R’EA:  .  .i>a5.*»  .  'iS)CTLOC(I) 

$40  -  I  ItCj.?-.; 

XL  AH*  $ « <i.S.ERR=540>L  TU)C  *  2 ) 

$4$  UK 1 Tb  <$»?$) 

RtAD\S»a5.ERR=545)CTL0C(i) 
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550  URITE<5*80> 

UO  Adi  1*1 »3 
DO  602  J«1.3 
603  MRITE<5*604)IiJ 

RE AD ( 5 . 66 . FRR* 403 ) T2 ( I * J > 

602  CONTINUE 
601  CONTINUE 
SS7  URITE<5*885> 

READ<S.40.ERR”557HF5NAHE<I>.I*l.i3> 

566  UR1TE(5»8V6) 

READi5»40»£RR”5*SHF6NAMEii>»i*i«13> 

C 

C  LOCATE*  IDENTIFY  AND  ACCESS  THE  LOCATOR  DATA  FILE 
C 

CALL  ASSIGN  <i*F2NANE»13> 

DEFINE  FILE  1  <1.48>U*IREC) 

C 

C  READ  LOCATOR  DATA  FILE 
C 

READ  ( 1 ' IREC  * ERR*3000 ) <  RC2DAT < I >  *  I » 1 »  24  > 

C 

C  ASSIGN  DATA  TO  VARIABLES 
C 

DO  87  1*1.3 

Tl (1*1 )*RC2DAT(34I ) 

T1(2»I)*RC2DAT<124I) 

T1(3»I>«RC2DAT(184I> 

LOCOGfK  I ) *RC2DAT  <  641 ) 

87  CONTINUE 

CLOSE  (UNITED 
L 

i  LOCATE*  IDENTIFY  AND  ACCESS  THE  INITIALIZING  DATA  FILE 

C 

CALL  ASSIGN  <1*F3NAHE»13) 

DEFINE  FILE  1  (876.2.U. JRECi 
DO  90  1*1*6 
DU  89  J*l*3 

KE AD<  T JREC >  ERR*3500 ) F NT I < I . J ; 

89  CONTINUE 

90  CONTINUE 

DO  93  1*1*60 
DO  92  J*l»3 

READ ( 1 ' JREC  >  ERR-3500 ) COSNAT ( I . J ) 

92  CONTINUE 

93  CONTINUE 

DO  96  1*1*20 
DO  94  J=1 *  3 

READ ( 1 ' JREC » ERR ”3500 ) UNTVEC ( I  *  J ) ) 

94  CONTINUE 
96  CONTINUE 

DO  93  I*l>60 
DO  97  J*l*3 

REAIu 1  JREC  *  ERR*3500 ) <  HUHDRC ( I » J  >  > 
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97  CONTINUE 

98  CONTINUE 
CLOSE  (UNIT*!) 

C 

C  CALCULATE  THE  TRANSPOSES  FOR  THE  VARIOUS  AXIS  SYSTEM  DIRECTION 
C  COSINE  MATRICES. 

C 

DO  152  N-1.20 
H*(N-U*3 
DO  151  J»l»  J 

CGSTRNOCTJ.  1 )°COSrtAT  (IU1  •  J» 

COSTRN ( N+ J . 2 > ‘COSHAT ( Ml 2 » J i 
C QSTRN < HP J» 3 KCQSHAT v HP 3 » J > 

151  CONTINUE 

152  CONTINUE 
C 

C  l  ALLOCATE  THE  LOCATION  OF  THE  FIXED  DODY  CENTER  U.R.T.  THE 
C  BOARD. 

CAl  L  GNFKDd2.Tl.T21. 3.3.3) 

CALL  HINVm.3.D»Fl.Gl> 

CALL  GNFRD<Tl»CTLOC.FDCNT.3.3.1> 

HO  920  lal i3 

F  BCNT v ! >  *FBCNT < I ) TLOCQGNT 1 1 
920  CONTINUE 
C 

C  OUTPUT  HEADER  INFORMATION 
C 

2000  CALL  DATE (DAY I 
CALL  TIME (HOUR  * 

UR11E  (5.200) 

URITEvS.lOOi  (JlNAntd)»I»1.9> 

UkITE(S.205> 

WRITE (5. 105)  DAY » HOUR » ( SNAME d ) . I s 1 . 25) 

UKlTE(S.llO)  \F1NAHE(I>  >1-1.1 3).NREC.<KESSd>.  1-1*80) 
UK1TM5.205) 

C 

L  LOCATE.  IDENTIFY  AND  ACCESS  THE  MAIN  DATA  FILE 

C 

CALL  ASSIGN  (1.F1HAME.13) 

DEFINE  FILE  1  (NREC.PG.U.KRECi 
CALL  ASSIGN  (3.F5NAHC. 13) 

DEFINE  FILE  3  (NREC.B.U.hkEC) 

(AIL  ASSIGN  <4>ISNAME.13> 

UFF1NE  PILE  4  <NREC»8.U.LnRECi 
C 

C  KLAD  ONE  RECORD 

c 

500  READ  ( 1'KREC.ERP: -*(000)  (RClDATd >.1-1.24) 

C 

C  ASSIGN  DA  I A  TO  VARIABLES 

C 

DO  49V  1-1.3 

PNTKd.l)  KLlDATdPl) 
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PNTN(2»I  >*RClMTd+S) 

PNTK<3.  *ClMTd«9> 

PNTK<4tI;»RCllNIU413i 

PNTM5iI>«8ClOATdd?> 

rNTM*'I>*ftClDATdt?t> 

499  CONTINUE 
SOI  KK«0 

DO  8vU  I-lta 

lF\TNTMltl>.NE.O.O)  00  TO  BOS 
Kk*Mdl 
80S  CONTINUE 

IF<KK.G£.4>  00  TO  3700 
N*1 

HO  540  J*lt 4 
HO  830  MJ+ltl. 

ItO  (CO 

TRlhlt'Ntl)*J 

lklH8<Ni2i*k 

TRlAD<NtJ)«L 

lF<PNTK<K»l>.NE.O,O.ANO.PNTK\Jtl>.NE.O.O.ANH.FNTK<L»l>,NE 
10.0)  GO  TO  850 
II «<*N-1 >43)41 
00  843  J>lt3 
HRCOSdlt  JJ)*0.0 
WtC0S(UTltJJ)*0.0 
DRC0SdIF2tJJ>«0.0 
DRCTRNdlt  JJ)«0.0 
URCfKNdl+li  JJ)->0.0 
ORCTW«II92tJJ)»0.0 
845  CONTINUE 
IPT<N)«K 
M*N41 
GO  TO  820 
850  00  800  N«l»3 

WEC1(H)*PNTK(K»H)~T'NTK(  JtH) 

VEC2<H>*fWTMLiH»-PNTMKtH> 

800  CONTINUE 
IPT(N)*K 

CALL  ®RCNAHVEC1»VEC2»CSNAT> 

I»<  <N-D83> 

HO  810  JJ-1.3 
DRCOSdd  t  JJ)  >CSNAT  d » J  J  > 

HKCOS (1 12 1 J J ) -CSHAT  ( 2 » J  J ) 

ORCOS  ( H3 » J  J )  *CSIMT  <  3 1 J  J ) 

HRCTRNdt  JJtD-CSNATdt  JJ> 

DRCTRN(HJJ«2><CShAT(2tJJ> 

HRCTRNd4JJ.3)-CShAT<3iJJ> 

810  CONTINUE 
N»N41 

820  CONTINUE 
830  CONTINUE 
840  CONTINUE 

CALL  LOCAXS ( PNTK » CASE » ERRTQT ) 
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C  CALCULATE  THE  JQIN1  CENTER  U.R.T.  THE  FIXER  RORY  CENTER 
C 

l*<<CASE‘l}«m 
RO  900  J*l*3 
TflATU»J>*DftClKN\ I*  J) 

THAT'.S.J^RRCTRmHItJ* 

lNAT<3.J>»RRCTRNm2»J> 

HUHU*  J)*HUftRRC<  l*J> 

HUH<2* J>aMUHDRCil41* J) 

HUh(3»J)*MUHRRC< It2» J) 
l'VEt<J)«JNTVfC<CASE*J> 

900  CONTINUE 

DO  339  J*l*3 
LDVECi J)*HUH<3i J) 
i  RVEfl i J)*NUH<lt J) 

LRVECDi J)*HUH<2* J) 

33V  CONTINUE 

i  AIL  taPRIiUnAT'CVECiCNTUEC'SiS*!) 
call  onrrri ihat*liuec*lgrveCi3*3*1) 
t Al l  OHFRJM THAT.LRMEC1 •L6UCC1 » 3 » 3. 1 ) 

COIL  GrtPRDi ;NAT*LBVEC2*LGUEC2*3*J*1> 

CALL  UMITVRiLGvUEC) 

CALL  UNlTVRilGVECl) 

CALL  UNITVR<LGVEC2> 

K*IPT(CASE> 

Hi)  910  l-*& «3 

II  *  JN I  <  I)  *f'NTk  v  k .  1  >  ♦CNTVtC  i  I ) 
yiO  CONI  INUE 

00  930  1*1*3 

LlBJNN I  >*ELRJNI  ( 1  >  -FSCNKl ) 

930  CONTINUE 

CALL  GMPRD(T21 tELBJNT *ELBCNT*3*3ti > 

1*0  931  1*1*3 
ERQUJT  < 1+1 ) -ELRCNT i I > 

931  CONTINUE 

CALL  GrtPRDi T21*LGRVEC#LRVEC» 3*3* i> 

CALL  6HPRR(T21*L0UEC1*LBUEC1*3*3»1) 

CALL  GrtPRD)T2l *lGVEC2flRUEC2*3*3*i) 

1. 

C  CALCULATE  1HE  THETA  AND  PHI  ANGLES  OF  THE  LONG  RONE  AXIS 
C  •).  R.  I.  THE  FIXED  DORY  AXIS  SYSTEM 

C 

IHETA*0.00 
PHI *0.00 

CALL  UNITURiLRVEi* 

CALL  UNITUR(LRUECl) 

CALL  UNI TUR(LD0CC2) 

CALL  SPHERE (LbVEC*THETA»PHI) 

DO  336  J*l»3 
HUH i l * J ) *LDVEC I ( J  > 

MUrt(2.J>=LRVEC2<J> 

HUrt<  3*  J)-L6VEt( 
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33«  CONTINUE 

IF(NAN&iE0.2>  60  TO  399 
cau.  luurihuN'ANGS) 

ANS0UTi2»»ANGSU> 

AlfcUM3>‘ANS8<2> 

ANGOU1<4>*AMG8<3> 

GO  TO  699 

399  CALI  CULER2<HUNiANB8> 

AN60UT(2)*ANG8O) 

AN00UI(3)«AN08(2) 

AN00Uf(4)«ANGS<3> 

l 

r  UNITE  01STAL  JOINT  CENTER  COORO. *8  AMO  EULER  ANGLES  U,  R,  T. 
5  TNf  FIXER  MSY  AXIS  SYSTEM  TU  RISE  FOR  THE  NOV I NO  ROSY 

C 

o99  CONTINUE 

EMNLiTU  >«F10AT<K0UNT ) 

URI TE ( 3 'MSEC H ESOU JT U ) » J»1 » 4 > 

ANGOUT<1>«FLOAT<KOUNT> 

URITEM'LHRECMANQOUTC  J) » J»1  »A> 
t 

C  UNITE  OUT  THE  DATA 
C 

IF (KQUNT  «0T  *  I >00  TO  710 
UNITE (5.700) 

710  URITE(3»72O)K0UNT»THETAtfHl 

I >AN60UT(2) »AN60UT<3> »ANG0UT<4> >TR1AS(CASE»I ) »TRIAINCASE>2> » 
9TRIAS(CA8E«3) »FRRT0T(CASE»l ) »ERRT0T(CASt»2>»ElBCMT<l » , 
SELKNT(2)»CLKNT(3> 

IF(ERRT0T(CASE'1>.NE.9.999)  60  TO  310 
I*TR1A0<CASE»1> 

J*TRIAD<CASEi2> 

K*TR1A0(CASE»3) 

RKh6I«S0RT<<PNTKiI.l#-PNTMJ,imA24<PNTMI»2>-FNTKU»2>>4424 

»<PNTMl»3>-FMTMJ.3»442> 

0KN62«SURT < < FNTK v J i 1 ) >FNTK < K f 1 ) > 4424 < FNTK <Jt 2 > -FNTK < K » 2 ) > 4424 
HFNTK<J»3>-FNTMK.3>>442> 

DKHG3«SQftT<(PNTk\kti)-FNTK(I*lH4424<FNTK(k*2)-FNTMI»2))4424 

t(PNTMK»3)-FNTMI»3))442> 

DIIWI«SQRT((fNTia*l)-PNTIU»i))4424(FNTl<I»2>>4NTl(Ji2>)4424 
!<PNTI(I»3)-PNTI< J»3))442> 

MHG2-SQRT ( (FNTI ( J»1 )-FNTI <K» 1 ) I4424IPNTI ( J»2)-PNTI (K»2) >4424 
t<PNTI( J»3)~FNTI<K»3))442> 

UIrta3«S0RT<(PNTI(K*l)-PNTI(Iin>4424(PNTI(K»2>-PNTI(I»2H4424 

KPNTI(Ki3)-PNII(l»3)>442) 

URITE(5»92d) 

URlTE<5»927>I»J.GIrt6i»J*K>DI«G2»K»I?DIW>3»I»Ji0KHGIfJ»k*MvHG2 

t»k»I»0KHG3 

C 

C  IF  THERE  ARE  ANY  NONE  RECORDS*  60  GET  THEN' 

C 

318  K0UNT-K0UNT41 

IFIK0UNT.IE.NREC>  60  TO  500 
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c 

C  FORMAT  STATEMENTS  FUR  PROMPTS  AND  RESULTS 
C 

5  FORMAT! '4'. 'Enter  name  of  Joint  tested  IS-931  ') 

10  F0RMAT19A1* 

IS  FORMAT!  '4  V  tnt^r  »ubj*cl  aim  or  nutter  [S-2535  ' ) 

20  FORMAT !2SAl) 

25  FORMAN  'O'  •  'inter  a  «Wrirtion  of  tht  test  CS-801  ’> 

JO  FGRMAT!80A1> 

35  FORMAT! '4'*  'Enter  data  HU  not*  CS-1J31  ) 

40  FORMAT  (13AD 

45  FORMAT! *•» Fnter  nutter  of  records  to  te  rood  CN-535  ') 

50  FORMAT! IS) 

51  FORMAT! '4'. 'Enter  th«  cor respond) nt  fixed  bods  locator  flit  no 
ttt  Cs-1311  *> 

55  FORMAT! 'O'.  Enter  the  distances  in  centiteters  alone  the  loco 
ttur  axe*  to  the  desired  fixed  bode  center  *') 

AO  FQRHATl't.TIS. 'Enter  the  X-COORDINATE  CN-8U  ') 

65  FORMAT(FIO.S) 

66  FORMAT  <  F8 . 4 ) 

/0  FORMAT! '4' »TI5.  Enter  the  Y -COORDINATE  IN-831  ') 

75  FORMAT! '4' *T15» ‘Enter  the  Z-COQRDINATE  CN-831  ') 

80  FORMAT!  'O'.  'Inrut  d  3x3  tatnx  vbw  rows)  that  defines  the  bode 
I  axis  sestet  w.i.t.  the  locator  axis  sestet  1  ' ) 

05  FORMAT! '4'.' Enter  the  correspondent  initialising  file  note  C 
tS-1331 

100  FORMAT! '0'»T78»VAl»  JOINT' > 

105  FPiMnN'O'.TS.'DATF.l  '  UhI  »/»TS. 'TIME!  '.8A1./.T5.'SUDJECT 
INANE  AMD  NUMDERS  »25Ai> 

110  FORMAT!'  '»T5. 'DATA  FILE  NAME!  '.I3AI./.T5. 'NUM8CR  OF  RFCORDSt 
V' i 15.// »TS. 'DESCRIPTION!  ’.86A1) 

200  FORMAT! 'O'. 165! '-')/> 

205  FORMAT! 'O'. 165!  -')//) 

206  FORMAT!’  .165!  -  t) 

207  FORMAT! '0' .165! ' « ' )  • 

275  FuRMAT!  O'. 'ERROR  ON  ATTEMPT  TO  READ  LOCATOR  FILE  ') 

280  FORMmT! 'O'. 'ERROR  QM  ATTEMFT  TO  READ  INITIALIZING  FILE  ') 

285  FORMA I!  0  »  FOUR  EMITTERS  OM  CUFF  READ  ZER0-FR0CEEDIN6  TO  NEXT 
1  RECORD  ') 

300  FORMAT! 'O'. 130.  ERROR  ON  ATTEMFT  TO  READ  NEXT  RECORD') 

311  FORMAT i '0' *T20» 'NOMINAL  JOINT  CFNTER  AS  INITIALIZED'/) 

340  T0RMA1! ’O'./'i* ‘Are  there  otner  files  to  te  processed? 

iCY/NU  ') 

345  FORMA  NA4> 

420  FORMAT! '4' » 'Do  juu  wont  to  print  out  the  euler  ansles  for  the 
t  huterus?  IY/NJ ;  > 

431  FORMAT! '4'. 'Do  *ou  wi->h  tei-e  1  \s-.s-s)»  or  teee  2  is-e~j) 
i  euler  anale  uuti-ut''  tl  or  231') 

432  FORM A 1 (12) 

433  FORMAN  0  .118.  UlllK  ANGLES  FOR  HUMERUS'  »//.T5»  'REC*  4'.T16. 

1  PRECESSION'  »T3*.» '  NUTATION  .  151 .  'SPIN*  »/»T20» '  !PHI> '  »T34» '  < THETA 
1)  » T jO. ' (PSI ) ' ) 

43-.  FORMAN'  '  .T6.I3. 1 19 »F?.2»134»r 7.2.T49.F7.2) 


604  FORMAT!'*' »T1S*  T2!'*Il*'*',Il*'>:EN-BJl  ') 

700  FORMAT ( '0' #T2f 'REC.I' *T13* 'THETA' »T23» 'PHI ' »T32* 

t'EUIER  ANGLES  FOR  MOVING  RODY  *T63* 'TRIAD  USEb'  *T78* 'SKEW-DEV' 
»*T93*  DIST-DEO  *T110*'DIS1AL  JOINT  CENTER'  */»T35*  PREC. '  *4X* 
4'NUT.'*4X*'SriN'*/) 

720  FORMAT < '  '  *15*Tll*F7.2»T20»F7.2»T33'3F8.2f  T62» 
13I3*T78*F7.3*T?2*F7.3*1105*3F9.3) 

881  FORMAT <4F8. 3) 

03S  FORMAT! 'I' * 'Enter  the  output  data  filertaac  for  '* 
t  'THE  DISTAL  JOINT  CENTER  COORDINATES  I  ES-133J) 

896  FORMAT! '• '* 'Enter  the  output  Oat*  filer****  for  EULER 
I  hNOLES  OF  THE  MOVING  DODY  tS-133!  ’) 

926  FORMAT!'  ' »T5*  INITIALIZED  DISTANCES! ' *T63»  DISTANCES*  CURRENT 
6  RECORD! ') 

927  FORMAT!'  ' *3! II *  - ' *11 * '  =  *F5.2» '  ' >»T60*3!11 , » 

4F5.2* '  '))  1 

C 

C  CLOSE  UP  DATA  FILE  4  THAT’S  ALL  FOLKS* 

C 

2001  CLOSE  <UNIT=1) 

CLOSE  (UNITS3) 

CLOSE  <UNIT=4> 

HRITE(5»207) 

UR1TE<5»340> 

REaD(5*345) ANS 

IF<ANS  .EO.  N  *60  TO  5000 

WRITE<5*35) 

REAI‘\5»40)  (FlNAME»I)iI*l»13> 

WR]TE(5*4S) 

READ! 5 *50)  NREC 
WhITE!5»2b> 

READ<5*30>  ihEbS<I)*I-i*80> 

KR£C*1 
K0UNT=1 
LKEC-1 
MREl>i 
LMRfc  C= 1 

:»S9  UMTE*  5*885) 

RL AD  <  5  #  40 » ERR=559 ) < F5NAME ( I  >  *  I  *  1 » 1 3  > 
vioO  WRITE!  5*896) 

RE AD  <  5 * 40  * ERR~5oO > i F6NAME ( I ) * I  =  1 r i 3 ) 

GO  TO  2000 
3000  URI TE(5*205) 

WRI TE<5*275> 

GO  TO  5000 
3500  WRITE (5*205) 

WRITE!5*2B0> 

GO  10  5000 
3700  WR1 If (5*285) 

KOUNT»KOUNT*1 

)»  <KOUNT.GT.NREO  GO  TO  2001 
GO  10  500 
4000  WR1 f E  <  S *  205  > 
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WR1TEI5* 300) 

(•DIO  2001 
5000  UK1TE (5*205) 

S>1  Of' 
l!ND 

DUE-ROUT I NE  SPHERE ( VEC .  THETA. PHI ) 

l. 

i:  SUBROUTINE  TO  CALCULATE  THE  SPHERICAL  COORDINATES  (THETA.FHI) 

C  OF  THE  VECTOR  *VEC*. 

C 

DIMENSION  B(3> *VEC<3» 

DATA  PI/3. 141592654/ 

VECHAG*SQRT  <  VEC  U >  442EVEC  ( 2 )  442+VEC  (3)442) 

IFlVECHAG.LT. 1.001)  CO  TO  10 
D( 1 )=V£C( l  )/VECMA6 
B ( 2 ) =VEC ( 2 ) /VECMhG 
D  E3 )  =  VEC  ( 3 )  /VEChAG 
GO  lu  15 
10  K»1)«VECU) 

D(2»=VEC(2> 

K3KVEi;(3) 

15  rtl=sORT<B< 1 >442E&<  2*442* 

1HC1 A=(ATAN2< Ai *B(  3* )) 4180. 0/P I 
1KIHETA.LT.  179. 99. OR, THETA. fiT. 0.01)  GO  TO  20 
l-'HI =0.0 
GO  TO  30 

20  PHl«<ArAN2<M2)fk(l ) )  )*180.0/F  I 
30  RETURN 
END 

i. 

SUBROUTINE  UNITVKVEC* 

C 

C  SUBROUTINE  CALCULATES  A  UNIT  VECTOR  FOR  ANY  GIVEN  VECTOR 
C 

DIMENSION  VEC (3) 

VECMAG= ( VEC ( 1 ) 442 ) + ( VEC ( 2 ) 442 ) + ( VEC i 3 ) 442 ) 

VECMAG=SQRT (VECMAG) 

IK VECrtAG.EO.O.O)  VECMA6-=I.O 
DO  10  1=1*3 
Vi  la  I  )=VEC< I )/VECMAG 
10  CONTINUE 
RETURN 
E  NU 

MIRR0U11NE  LUCAXSi  IN  1 K  *  CASE.  *  ERR  TO  I ) 
i: 

i  line  SUBROUr INE  SELECTS  lilt  'MOST  ACCURATE*  LOCAL  AXIS  SYSTEM 

C  BASED  ON  INTRA-AXIS  SYSTEM  DISTANCES  AND  RELATIVE  SKEW  ANGLES. 
C 

DIMENSION  F'NfK6*i)*IIbv3*3)*II5K(3*3)*TJS(3*3)  *TJSK3*3* 
DIMENSION  TIJ<3*3>.  I  l.)M3.3>  *GEN(3*3)  *VECI (3)  »VECK(3) 

DIMENSION  ERRTO l( 20*3) *E H3) *G1 (3) 

INTEGER  TRIAD. CASE 
REAL  JNTVECi JTDShG 
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COM ON  /AC/  F'N  1 1 1 6  >  3  > » C OSNA T  <  o 0 » 3 ) » COSTRN <bO»3)rDRCQS(oO*3)» 
lDRCTRN<60r3)»TRlAD<20»3)rJNTVEt(20f3> 

C 

ERRSK»0,0  I 

ERRDLT=0.0  \ 

C 

HO  20  hrt=l»20 
C 

ll*TRIAD<NHt  I  > 

J1=TRIAD(HH»2> 

MSTR1AD<HH»3) 

IFlRNTKUl  *  1  <  .EQ.O.QtORiF'NTM  Ji » i  >  .EQ»0,0t0R.FNTMM » 1 )  .EG.OtO) 
I  60  TO  19 

C 

KK-<MH-1)*3 

C 

c 

DO  3  J*l>3 

TISUfJ)=COSNAT<KK+l»Ji 
TIS<2» J)=C0ShAT(KK+2» J) 

T1S\3» J)sC0ShAT<KK43f J) 

TISK(li J)*0RC0S(KK+1» J> 

TI3K\2f J>-bRC0S(KKT2f J) 

T I SK  <  3 1 J ) -HKCDS (KK43tJ) 

CGNT I HUE 

hKNTl-0 
HKNT2=0 


DO  xO  N=l>20 
I2=TRIAD<N>1 1 
J2=TRIAD<N>2) 

K2*TRIAB<N»3> 

1F<FNTK<I2»1).EQ.O.O.OR,PNTK(J2»1),EQ,O.O.OR,FNTK«K^»1).EQ.O,0) 
*  GO  TO  10 
h-<N-l )*3 

IF(N.EG.HH)  GO  TO  10 
C 

DO  S  J»l>3 

TJ5>(  1  *  J)*C0STRN(H+1 » J) 

TJS<2» J)=C0STRN(MF2» J> 

TJS<3» J)*C0STRN(H+3» J) 

C 

TJSK< J)=DRCTRN(N+1» J) 

TJSK(2» J>=BRCTRN(HI2» J> 
f  JSK<3t  J)=IiRCTRN<M+3t  J) 

S  CONTINUE 

C 

C 

CALL  GNF'KD<T1S«TJS>TI  J»3»3»3) 

CALL  GrfFRD<TISh»TJSK,TIJK.3»3»3i 
CALL  hINV<  TIJK»3»D»Fl i G1 ) 
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CALL  GrtF'kDITIJ*  fl  JlwGfcN»3*3»3) 
lRACE«(GEN<ld>M2FGEN<2»2>**2+GEN<3»3>**2> 

GArt*. 5* (TRhCE-l .0; 

lFiGAM. GT. 1.0. AND. GAh.LT. 1.05)  GAH-'l.O  ! 

GAH»ACQS<GAh>  ■ 

JTDSnG=SGRT<  <JMVECvN»1)**2)  +  vJNTVEC<N»2)**2)  +  (JNTVECvN»3) 

U«2)> 

GArtSIN--’SIN(GAri)  \ 

bt  LIAS =  J  T  DSHG*G AH  G 1 H  ] 

DF11A$-DELTAS**2 

ERRSK*£RRSK  t DELT AG  I 

MKNfl=HKNTl+l  \ 

III  - fl<IAD(Hh»2)  ] 

JJJ-TK-1AIKN.2)  j 

1H1II.EG.JJJ)  GO  TO  10  1 

C  I 

DO  7  L-1.3  \ 

VEC1(L)*FN1I<JJJ»L)“PNT1UI1.L)  j 

VECK i L  >  *FNTK  <  J  J  J » 1. 1  -PNTK  ( 1 1 1 » L  >  I 

7  CONTINUE  j 

C  1 

OL  l  I  rtl>«SGRT  < i UEC l < 1 ) 4* J  >  t  (  VEC 1 <  2  >  *42 ) T< VEC1  ( 3 )  442 ) )  j 

VECKHG*SQRT ( l UECK  < 1 >  442 ) F  <  VECK ( 2  >  442  H-  < VECK ( 3 ) 4*2 >  > 

DEL  TAD  s ADS ( VECKHG-VEC IMG ) 

UtLTAD-DELTAD**2 
KRRDLT  =»ERRDL  T + DEL  1  AD 

HI\NT2=r»kNT241  ‘j 

10  CONTINUE  j 

C 

RrtKNl  1-f  l.ClAHHIiNT  1 )  j 

RhKNT 2-FLOAT ( HKNT2  >  - 

DlVl-kHKNTl*l,0  j 

HlV2-KnKNT2*l .0  f 

J>  vhKNl 1 iNE.O)  GO  10  11 

SK£RR»9.WV  ! 

GO  TO  12  | 

U  nlahk-StlkllERRSh/DIVl; 

l?  11  irlKNT2.Nt.0>  GU  TO  13  | 

UtKFi-V.VVV  | 

nil  In  14 

13  lill<k*SQRliERRDLT/DlV2> 

M  I  Rki  QT  ( HH»  1 )  -SKERR 

ElvRTOl  (HM»2)sDERk 

tkR  I U I  ( HH»  3 )  -SUhT  <  ( SkERh**2«<tRR*42  > /2 . 0  > 

i;  I 

ERRSK-0.0  1 

ERRDLT=0.0 

(.0  10  20 

19  E )\K  t 0 1  (nn*i  >-25.0 

[RKltlTihH»2)-25.0 
LKftlOi (HM»3)=50.0 
t  l\'kiK-0 . 0 
l.R KDI  l  -u.O 
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20  CONTINUE 

C 

case«i 

ERTQTL*£RRTQT (1*3) 

Pa  25  I«1»I9 

IF  <ERTOTL.lE.EftRTOT(I+I*3>)  GQ  TO  25 
CASE*!!! 

f RTOTL*£RRTOT < 1+1 »3> 

25  CONTINUE 
RETURN 
END 
C 

C  •  ■ 

' SUBROUT INE  EULER ( D » ANG$ > 

C  ■ 

C  THIS  SUBROUTINE  CALCULATES  THE  EULER  ANGLES  <Z-X-Z)  WHICH 

C  DESCRIBE  THE  HUMERAL  AXIS  SYSTEM  RELATIVE  TO  THE  FIXED  BODY 
C  SYSTEM* 

c 

DIMENSION  D<3»3)* ANGS<3) 

DATA  PI/3.141592454/ 

C 

ANGS<2)Z(AC0S<D<3>3) ) )4180<0/FI 
IF<AN6S<2>.LT.0.01>  GO  TO  20 
IF<ANGS<2).GT. 179.99)  GO  TO  30 
ANGS(3>z<ATAN2tB<ii3>.D<2»3>>>*180.0/PI 
ANGST 1)Z(A1AN2<D< 3*1 )»-D<3»2)))tl80.0/FI 
GO  TO  40 

20  PSIFHI»(ATAN2((D<lt2)-D(2»U).<PU»l)+D(2»2>>>)*I80.0/PI 

ANGST  D-PSIPHI 
ANGST3>=0.0 
GO  TO  40 

30  PSIFHIzTATAN2<TDTl.2HDt2.i>>.TBU*l)-BT2*2>)>>*180.0/FI 
ANGST 1)*PSIPHI 
ANGST3>Z0.0 
40  RETURN 
END 
C 
C 

SUBROUTINE  EULER2TD*ANGS) 

C 

C  THIS  SUBROUTINE  CALCULATES  THE  EULER  ANGLES  <Z-Y-Z>  WHICH 

C  DESCRIBE  THE  HUHERAL  AXIS  SYSTEM  RELATIVE  TO  THE  FIXED  BODY 
C  SYSTEM. 

C 

DIMENSION  D<3i3)»ANG5<3) 

DATA  FI/3.141592454/ 

C 

ANGS(2/X< AC0STP(3*3) ) )*160.0/H 
IF TANGST2) >LT .0.01 )  GO  TO  20 
1F< ANGS<2) <GT . 179.99)  GO  TO  30 
ANGS<3)*<ATAN2iB(2»3)*-0< 1 r3) ) ) 4180.0/FI 
ANGST  1 )-<AlAN2TB<  3*2) *D<3* 1 ) ) /4180.0/FI 
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GO  TO  40 

20  F'SIF‘HI«(ATAN2(  (DU  »2)-D<2t  1 )  /  >  <D< 1»1 )+D(2>2) ) ) ) *180. 0/F  I 
ANGS< 1 >»PSIPHI 
ANGS<3)=0.0 
GO  TO  40 

30  FSIF'H  1  =  <  AT  AH2  <  <  I*  ( i*2>+D(2*l )  >»  <D(i»l  )-D<2»2) ) )  >  4180  ►  0/P I 
ANGSUHPSIPHI 
ANbS(3)=0.0 
40  RETURN 
END 
i: 
i: 

SUBROUTINE  DR'CnAI \h»B»C> 

C 

C  Itllb  SUBROUTINE  CALCULATES  THE  DIRECTION  COSINE  MATRIX 
C  FOR  AN  AXIS  SYSTEM  RASED  ON  TUG  COFLANAR  VECTORS  (A  and  B>. 

C  THE  RESULTING  MATRIX t  C.  IS  ORTHOGONAL  AND  UNITARY* 

C 

DIMENSION  A(3)»D(3)»U3»3i 
AMAG=SQRT(  A(  1  >*42+A(2)*42+A(3U*2i 
BMAG-SQRT<B<l)**2+&<2)**2+&<3)**2> 

C(1»1)*A(1)/AMAG 
Ca»2)=A(2)/AMAG 
C(l»3)=A(3)/AMAb 
C(2i l  )=B< I )/RMAG 
C  (2»2)-B(2)/'tMAu 
lv2f 3)-B(3i/DHAG 

r.(3»l)-(C(1.2)*C(2t3>)-<C(2»2)*C<i»3)) 

L<3»:> -(C(l»3)4C<2»l)>-<Ci2»3)*C(ltl)) 
i  <3,3.  •,tU»mC<2»2i)-<C<2.1>4CU»2>> 
t:(2.n=(c(3.2)*ca.3)>-<ca»2)*c(3#3)) 

I  •;2»2)  =  (C(3.3)*C(i.i)>-iC(3#l)*Ca»3)) 

C(2»3)  =  (C(3il)*Ca»2))~(C<l»n*C<3»2)) 

HI)  10  J=1  »3 

CMA6~SGRT(C< J» 1 i4*2EC( J»2)4*2+C< Ji3)4*2) 

DO  5  I- 1 i 3 
f  iJfD-CtJiI  )/CMhG 
S  CONTINUE 
10  CONTINUE 
RETURN 
t  Nil 
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PROGRAM  FOR'CHO 
C 

C  THIS  PROGRAM  ANALIZES  THE  KINEMATICS  OF  A  MOVING  BOGY  RELATIVE 
C  TO  A  FIXED  BODY  FOR  SIlUATIONS  WITH  APPLIED  LOADING. 

C  THIS  PROGRAM  REQUIRES  THE  INPUT  OF  A  LOCATOR  FILE  (FOR 
C  THE  FIXED  BODY ) *  AN  INITIALIZE  FILE  (FOR  THE  MOVING  BODY)  AND 
C  A  KINEMATIC  DATA  FILE. 

C 

C  DECLARE  I  TYPE  VARIABLES)  DIMENSION  ARRAYS)  INITIALIZE  CONSTANTS 
C 

DIMENSION  SHLJNT(4)*EBOWJT<4) .ANGGUT (4) *CAL»6*6)*F2(6) *G,'<6) 
DIMENSION  C1L0C(3> »R<3) .RC2DAT (24) *PNTK(6*3>  *FXJTCT<3) *RCNTR(3> 
DIMENSION  RC1DAT<33) *VEC1 (3) *UUTFUT(22) *VEC2<3) *VEC3(3> 

DIMENSION  Fl(3>*£RRTQT(20i3)*ELBJNT(3)tELBCNT(3)*CSMAT(3*3> 
DIMENSION  G1(3).TMAT<3*3>.CV£C(3>*HUMDRC(A0.3>.HUH(3.3> 

DIMENSION  LBVECi3>*CNlVEC(3>.T2(3.3>.Tl(3*3).T21<3.3>.FBCNT(3> 
DIMENSION  L0L06N ( 3 ) * JTCNT ( 3 ) . AN6S ( 3 ) . LOBVEC < 3 ) » JNTCNT ( 3 > 

DIMENSION  LBVEC1 (3)*PNTG(3*3>*LBVEC2(3>*LGVEC1(3)*LGVEC2(3> 
DIMENSION  F’TAXTF  (3*3) *F'TAPP(3>  *PTAXIS(3*3)*FTAPB(3>  *QUTPT2( 12) 
DIMENSION  IRNAXT(3*3) *X(6) *UJT(3*3> 

LOGICAL* 1  J1NAME(9) *SNAME<  25) *MESS<80)*F1NAME( 13) *F2NAME( 13) 
LOG1CALI1  F3NAME(25> *DmY(9) *HQUR(8) *F4NAME(  13) 

INI EGER  ANS*Y»N*IPT< 20) .TRIAD* CASE  *  ANS2 * GUNSD 
KEnL  JNIVEC.LBVEC.LOCGGN* JTCNT.LGBVEC 
REAL  JNTCNT.LBVEC1 .LBVEC2.LGVEC1 .LGVEC2 

COMMON  /i1.:/  PNTI (6*3) * COSMAT <  60 . 3  > . COSTRN ( 60 . 3  > . DRCOS ( 60 . 3 )  * 
*DRCTRN(60>3> *  TRIAD(20*3>  * JNTVEC(20*3) 

COMMON  /BC/  ERCTRN(6)*TRNAX<3t3) 

DATA  IREC/l/JREC / 1  /KREC/  1/Y/' YVN/'N' /KQUNT/ 1  / 

DAT*.  A/'A'/B,' "B'/FI.'3.1415?2694/LH£C/1/ 

C 

C  PROMPT  FUR  DIMENSIONS*  DATA  FILES  AND  OUTPUT  INFORMATION 
C 

SOS  URITEv'StS) 

READ ( 5* 10 , ERR =505 >  t JTNAmE (I)*l-1*9) 

S1V  WRITE (S* IS i 

READ (tn.  o*fcKK-S10)  t SNAME \ I )» 1=1*25) 

SIS  WRITE(S*2S) 

READ  (5.30.ERK-S15)  (MESSU  >.1  =  1.80) 

520  WRITERS*  35) 

READ  ( 5* 40* ERR  =-'520 )  (FINAHEd >*1-1*13) 

S25  WRITE(5*45< 

READ  (5.50.ERR-525)  NREC 
S27  WRITE<5.51> 

READ(5*40*ERR=527>  <F2NAME(I> *1=1*13) 

555  UR‘ITE(5*85> 

RE AD  <  5 » 20 .ERR-SS5 ) ( F3NAME < I ) *  I  =  1  *  25 ) 

537  WRITE (5.88) 

RE AD ( 5  *  345  *  £RR=537 ) GUNSD 
530  WRITE(5*55) 

535  WRITE<5»60) 

READ(5*65*ERR=535)CTL0C< 1 ) 

540  WRITE<5.70) 
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1st  Al*<  5 .  6b  *  ERR*540 )  CTLOC  <  2 ) 

343  WRITE<5»75> 

K-EAD  <  5 » 65 .  ERR=545 )  CTLOC  ( 3  > 

URI!E<3./6> 

346  UfilTEiS»7?) 
k£AtU5»65»ERR*546)FXJTCT(l > 

347  URITE<5»78> 

REAI)V5»65»ERR-547>FXJTCT(2> 

348  WR1TE(S»79> 

READ<5»65.ERR*540)FXJTCT(3> 

/:i  URIT£<5*731> 

URITE(5»734) 

RfcAD(3.63»ERR*721  TTHATO 
722  Ukl rt(5»732) 

kEAD(5»65»£RR*722>PHiO 
3S0  WklTE<5»80) 

P8  601  1*1 tA 
HO  602  J=1 »3 
603  UR1TE(5»604)I. J 

RE AD  <  S » 66 .  ERR*603 >T2<I»J) 

602  CONTINUE 
601  CONTINUE 
623  WRITE (5 .626) 

RE AD ( 3 » 65 . ERR=625 ) HHD I S 
630  URIT£(5.631 ) 

READ<5»65»ERR=630>HYDIS 
627  URITE(5»628) 

REArK5*65*ERR=627>EJHIS 
536  URITE<5'884> 

READ(3»40.ERRZ536) <F4NAHEi 1 ) > 1=1 >13) 

C 

C  LOCATE <  IDENTIFY  AND  ACCESS  THE  INITIALIZING  DATA  FILE 
C 

CALL  ASSIGN  (1.F3NANE.25) 

DEFINE  FILE  1  <876.2>U> JRECi 
DO  90  1=1 >6 
DO  89  J=  1  >  3 

READ ( 1 ' JREC >  ERR- 3500 ) F NT  l  <  I » J  > 

89  CONTINUE 

90  CONTINUE 

DO  93  1=1.60 
DO  92  J=1  >3 

READ < l ' JREC . ERR- 3300 ) CGSHA T < I . J ) 

92  CONTINUE 

93  CONTINUE 

DO  Vo  I=l>20 

DU  V4  ,;-i»3 

RE AIM  l ■ JREC . E  RR-3500 ) ( JNTMEC ( I . J ) ) 

Y4  CONTINUE 
96  UlNllNUE 

DO  V8  1-1.60 

||||  y7  J-l.3 

Kl  AlM  1  JRt  C .  ERR  ■  J3uu  >  i  IIUhDRC  ( 1 .  J I ) 
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9?  CONTINUE 
90  CONTINUE 

CLOSE  (UNITED 
C 

C  CALCULATE  THE  TRANSPOSES  FOR  THE  VARIOUS  AXIS  SYSTEM  DIRECT  ION 
C  COSINE  MATRICES. 

C 

DO  152  N*I»20 
N*(rt*l>«3 
DO  151  J«li3 

COSTRN ( H+ J » 1 ) sCOSMAT ( HE 1 » J ) 

CQSTRN<HU,2)»C0SMAT<MF2U> 

COSTRN  <  HU .  3  >  *COSMAT  ( H+3 » J ) 

151  CONTINUE 

152  CONTINUE 
C 

C  FILL  THE  TRANSDUCER  CALIBRATION  MATRIX 
C 

CALL  ASSIGN  <1» ’C7fl3CAL.DAT' ) 

DEFINE  FILE  1  <2.72rU»LREC> 

READ(1'LREC>ERR«3800)< <CAL(I» J) i J=i»6>»I=li6> 

CLOSE  <UNIT«1> 

CALL  MINV<CAL»6»B»F2,62) 

C 

C  LOCATEi  IDENTIFY  AND  ACCESS  THE  LOCATOR  DATA  FILE 
C 

2000  CALL  ASSI6N  (1 .FPNAMEtlS) 

DEFINE  FILE  1  U.48»UiIREC> 

C 

C  READ  LOCATOR  DATA  FILE 
C 

READ  <1 ' IREC»ERRs3000> <RC2DAT( I ) »I*1 ,24) 

C 

C  ASSIGN  DATA  TO  VARIABLES 
C 

DO  87  I«I,~ 

T1(1»I)»RC2DAT<3FI) 

Tl(2!l)*RC2DAT(12+I> 

Tl(3!l)»RC2DAl(18H) 

locogn<i)=rc:haT(sh) 

87  CONTINUE 

CLOSE  <UNU-1< 

c 

C  CALCULATE  THE  LOCATION  OF  THE  FIXED  BODY  CENTER  U.K.T.  THE 
C  BOARD. 

CALL  GMPRD<T2iTi,T21, 3,3,3) 

CALL  HINV(T1.3.DiFl»Gl) 

CALL  6HPRD<T1iCTL0C!FBCNTi3i3i1> 

DO  920  I«1 ,3 

FBCNT  <I)*FBCNT(I> +L0C06N ( I ) 

920  CONTINUE 
C 

C  OUTPUT  HEADER  INFORMATION 
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CALL  HATE ([i AH 
CALL  TIHEIHOUR) 

WRITE  (5.200) 

UMT£(5.100*  <JTNAHE(I)»I«1»9> 

URlTE<5t20S) 

WR I  TE  <  5 » 105  >  DAT » HOUR  ■  <  SNAHE  ( I )  1 1 « 1 » 25 > 

WRIT£<5.110>  (F1NAHE<I)»I«1»13)»WREC»(HES8(I)»1«1»80) 
WR1TE(5»205) 

!>  WRITE  (5»700> 

D  WRI TE  <  5 » 701 ) 

C 

L  LOCATE »  IDENTIFY  AND  ACCESS  THE  HAIN  DATA  FILE 
C  OPEN  ANY  OUTPUT  DATA  FILES 

C 

CALL  ASSIGN  UtFlNAW.U) 

DEFINE  FILE  1  iNREC.6*»U»KRLC» 

CALL  ASSIGN  <  L* » F  4AAMC  *13) 

C 

C  READ  ON!  RECORD 

C 

1.00  READ  <1  KK'EC.ERRsAOOy)  (RCIDATI I). 1=1.33) 

C 

L  ASSIGN  DATA  10  VAR 1 ARLES 

C 

DO  499  1  =  1 .3 

PNTM1»1>=RC1DhT<I> 

FNTK'(2»I)-RClDAT(If3) 

PNTK(3»D*RC1DAT(UA) 

PNTK(4tI)*RClDATU99< 

FNTKI5. l ) .RClDAr(IR12) 

F'NlR(6.I)=RClDAT(IF15) 

PNlT.i  1  1 1 )  -KCIDAI  v  141R> 

FNIu(Jit)  -RClDAM  Il2l> 

ENIt.vSil  >  -RCIDAIO  * > 

C 

C  CONVERT  TRANSDUCER  FORCE  AND  MOMENT  DATA  TO 
l  NEWTONS  AND  NCUTGN-METFRS 

L 

FRCVRNili*RClDAT<28/*4,44ti 
FRCTRNi2>=RClBAT(29)44.44S 
T'KC  TRN  <  3 )  =RC  1  DA  T  <  30 )  44 . 448 
FKCTRN( 4 ) =RC1DAT (31140.1 1298 
FRCTRN <  5  M  RC1DAT  <  32 ) *0 . 1 1 298 
F  KC  TRN  <  6  >  =RC 1 DAT  <  33  >  40 . 1 1 298 

499  <UN  1 1NUF 

DU  689  1-1.3 

IF  tl'Nlbl  1 . 1 ) .  Nh  . u .  v  i  GO  10  609 
till  !U  3900 
oUV  CUN  II  Nil! 

Sul  Kli-u 

Ml  Ut'j  I -l.o 

ir  •  l'NTR(  1 . 1 )  i  NE  <0.u)  00  10  605 
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Kk»KMI 
U05  CONTINUE 

IF1KK.GE.4)  GO  10  3700 
N*l 

DO  140  J*l»4 
DO  830  KaJ«*U 
DO  820  L*KTi*6 
TRIAD<N.1)«J 
TRIAD(Nt2)*K 
TRIA0tN»3)«L 

IRFNTk'<  K»  1 )  <NE  .0.0.  AMD  .PNTK(  J.  I  KNC.O.O.  AND.  PNTRiL.li.NE. 
10.0)  00  TO  850 
lt*<<tM>*3>41 
DO  645  JJ°1 *3 
DRCOSUIt  JJ)>0.0 
DRC0SUIH.JJM0.0 
DRCOS(1H2»JJ>*0.0 
D8CTRN(HiJJ>«0.0 
ItfiC TRN <  II+1»JJ) -=0 . 0 
DkCTRNi I I+2i JJ>«0.0 
845  CONTINUE 
IPT(N)*K 
N»NF1 
GO  TO  820 
650  DO  800  M-l.3 

VECl(N)*PNTK(K»H)-NTK(Jtm 

VCC2<M)«PNTML.M>-PNTK<K»N> 

800  CONTINUE 
1PT(N)*K 

CALL  DRCNAT<VECl.V£C2»CSMATi 
I «< (N-l)63) 

14)  810  JJ-1.3 

DRCOS ( I* l » JJ ) *CSMAT < 1 , JJ > 

DRCOSU+2.  JJ)=CSMAT<2»  JJ) 

DRC0S<H3»JJ>*CSMAT(3»JJ> 

DRCTRNt H JJ. n *CSMAT ( 1 » J J  > 

DRCTRN(  I+JJ.2)=CSflAT(2i  JJ> 

0RCTRN(HJJ»3)-CSNAT(3»JJ) 

810  CONTINUE 
N»N+1 

820  CONTINUE 
030  CONTINUE 
640  CONTINUE 

SELECT  ‘HOST -ACCURATE’  TRIAD  OF  EMITTERS 
CALL  LOC AXS ( PNTK » CASE » ERRTOT ) 

MULTIPLY  THE  TRANSDUCER  VALUES  DY  THE  CAL I DRAT  I ON  MATRIX 
TO  GET  THE  FORCES. 

CALL  6MPRD<CAI»FRCTRN»X»©»6»1> 

DO  492  .>1.6 


150 


FRCTRN<l>-X<I> 

492  CONTINUE 

C 

C  CALCULATE  THE  POINT  OF  FORCE  APPLICATION  AND  THE  AXIS  SYSTEM 
C  OF  THE  FORCE  TRANSDUCER  W.R.T.  THE  FIXED  DODY  CENTER 

C  IN  ADDITION*  CHECK  THE  ACCURACY  OF  THE  F-A  EMITTERS 

C 

CALL  FORF-T  (F'NTiii  GUNSD .  PT  Af  F >  F  T AX I S ) 

Ml  SOS  1*1)3 

PT APP<  I  >  *PTAPt <  1 »  FDCN1  ( I ) 

503  CONTINUE 

CALL  GHFPD<T2l)PTAK)PTAfb)3)3)l> 

DO  S09  1*1)3 

PTAX1F  < 1 ) 1 >*PTAXIS(l)i > 

prAxrp(i)3i*nAXis(2)i> 

PIAXIP(I)3>*F TAXIS(3)1 ) 

SUV  CONTINUE 

t  AL  L  OHPRlt  <  U 1  >  P  T AX  1 P  >  1 RNAXT  >  3  >  3  >  3  > 

DO  511  1*1)3 
IKNAX(I)l)*TRNAXi U)l> 

1RNAX(1)2)*TRNAXT(2)I> 

IRNAXlIi3)*TRNAXT<3>I> 
ill  CONTINUE 
C 

L  CALCULAIE  IHt  JOINT  CENTER  U.R.T.  THE  FIXED  DODY  CENTER 

C 

l  si  (CASE-1 >43)4  1 
DO  900  J*  l  >  3 
That* !• j>-dkcirn\I)J> 
lNAT\2»J> -DRCIKNUH*  J) 

InATii*  J>-DKClk'N<  142>  J) 

H(Jh(l>J)*HUhbRC<l>J) 

HUH(2> J)*HUMDRC( 141 . J) 

HUM(3)Ji*HUMltRC<H2)J) 

LVEC  ( J >  *  JNT  UEC  ( CASE  t  J ) 

900  CONTINUE 

DO  339  J-l  .3 
LBVEC\J»=HUh(3)J) 

I  6VK  I(J)*HUH(1)J) 
t.HUEC2(J>*HUH<2)  J) 

339  CitMT INUE 

i  All  bhPRD<TnAT)CUEC)CNTVEC)3)3)l> 

C«l. !  UHF'RD <  THAT  iLDUEC » LGBVEC  .3)3*1) 
t  Al  1  OnPRli  <  I  MAT .  LBUE  El .  LGMEC  1  >  3  >  3  >  1  > 

CALI  UMPRD (THAI .1  HVEC2 . L6VEC2 >3)3)1) 

(.All  UNIIVRILGDVIC) 

CALt  UNllVKUGVlLl) 

lAll  lJNirUR<l.GOt:C2»  *  - 

K  1  PI < CASE) 
ini  vio  l--i,i 

ill  1 1  NT  i  1 )  ;PN  IKi  K .  i  •  ilN  I  VEt  1 1 )  4HHDI  S4L6BUEC  ( I )  -HYDIS*L6VEC2( 1 ) 
It  D.lNTi  1  )= JNICN1 1 1 1 TEJDIS4LGDUEC(  I ) 

9io  Cun 1 1 mu 
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HO  *Jv  lxl»3 

JNTCNT  < 1 >■ JNTCNT < 1 )-FftCNY  < 1 > 

EUJNTT  1  1-EL6JNT  ( I 1  -FICNT  <  t ) 

930  CONTINUE 

CALL  GHPRDd2l*JNtCNT»JTCNT»3»3.1) 

coll  gnprou2i»eujnt»eliicnt.3»3»i) 

GO  931  1-1*3 
SNLJMIddl-JTCNTd) 

EGQUJTddl-ClfcCNTd) 

OUTPUfdAdl-JTCNTd) 

OUTPUT ( 1 94 1 » 'LlKCNT < 1 ) 

931  CONTINUE 

CALL  GHPRG ( T21 »L6GVEC  »LGVEC  *  3*3*11 
CALL  QNPRD<T21»LWECl»LWeCl  *3*3*1) 

CALL  GhPRD< T21 *LGUEC2»LSVtC2»  3*  3* 1 > 

CALCULATE  THE  THETA  AND  PHI  ANGLES  OP  THE  LONG  GONE  AXIS 

THETA-0 *00 
PHI-0.00 

CALL  UNITVRTLGVEC) 

CALL  UNITVR(LGVECl) 

CALL  UNITVR<LWEC2) 

CALL  SPNERET  LBVEC » THETA* PHI 1 
00  336  J-1.3 
HUHd*J)«Lt<VLCl(  J) 

HUH\2» J)*LGVEl?< J) 
hUH<3»J)«LWEC<J) 

RCN1 R  <  J )  «EL  GCNT  <  J )  -FX  JTCT  ( J 1 
338  CONTINUE 

CAIL  SPHERE t RCNYR • THA2  *PHI2 1 
OUTPU M 2 ) -ERRTOT ( CASE *  1 ) 

OUTPUT  <  3 1 -ERRTOT  < CASE . 2 ) 

OUTPUT  (4 1-THA2 
OUTPUT (31-PHI2 


C  NULT1P1Y  RxF  AND  CALCULATE  THE  FORCES  AND  MOMENTS  AT  THE 
C  JOINT  CENTER 

C 

R(1 )«<PTaPB< 1 )-FXJTCT< 1 1 1/100.0 
R(2)*<PTAPG<2)-FXJTCT <2)1/100.0 
R(3)=<PTAP8(3)-FXJTCT(3) 1/100,0 
CALL  RESULT <R*OUTPUT) 

OUTPUT (l)-FLOAT(KOUNT) 

0UTPT2d)-FL0Al (ROUNT) 

C 

C  1RANSF0RH  THE i a  1  PHI  COORDINATES  OF  R  VECTOR  INTO 
C  JOINT  SYSTEM  COORDINATES 

C 

V0-THA24PI/16O.O 
HQ«PHI2#H,'180.0 
VC*THATO*PI/160.0 
HC=F  MI04P 1/180.0 
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A»\OlM&INtVt»>4SlN<H0“HC)) 

AWJ2»  <SIN<VOUCOS<  VC  UC0S(H0-HC>-C08<VO>*8IN<VC>> 

ARQ3*<C0S<VO>iCOS<VC>+SlN<VG>4SIN<VCUCO$<HO-HC>> 

HI£ATAN2(AR61»AR62> 

iFiHT.bT.O.O)  00  TO  337 

MT>2'0tPl-AfeSiHT> 

33/  VT*AC0Si.a03> 

ouirr2<2>«VT4U8o.oo/pi> 

OUTF  T2<  3>»NT*<  180.00/F'l ) 

C 

C  FlfifORh  ANALYSIS  OF  FORCES  AND  WOMEN'S  IN  THE  JOINT 
C  AXIS  SYSTEM 

C 

If (KUUNT tbf • 1 )  00  TO  808 

PhlX«PHIQ*Fl/180,0 

lHA*-<lHATG+90,0>*Fi/ 180.0 

FHI2-PHI04PI/180.0 

1HA12»THATQ*PI/I80.0 

UJTll,l>*C0$<PHIX)4SlN<THAX> 

UU<1>2)*3IN(FHIX)4SIN<THAX) 

UJl d .3)*C0S( THAX) 

IMlv J»l >*S1N<THATZ)4CQS(PHI2) 

UJT( J»2)*SIN( THATZi4SIN(PHlZ) 

UJl < 3.3>sC0S< THATZ) 

UJl (2.  1  )“(UJT<3»2)4UJT  (  1 » 3 > -U JT ( 1  i 2 > 4U JT < 3 * 3 >  > 

UJT<2»  2  >«-<UJT<3» 1 14UJT ( 1  *  3  > -U JT  < 1 . 1)4UJT(3.3>  > 
lUlu.J>*<UJT<3.lUUJTU.2>-UJT<l»lUUJT<J.2>> 

808  CALL  hOANALt OUTPUT «0T »HT  »UJT .QUTPT2 ) 

C 

f.  URIIE  OUT  THE  DATA 
C 

WKlTEi!i.702)(uUlPUTiI>»I3l»lA> 

UR1TE(5»/03X OUTPUT <I)»I*17*22)» (QUTPT2( J) . J«2»12) 

WRITE  \2i  704  XOUTPl  2( J»» J»l» 12) 

80  818  1*1.22 
W>IPUT(I)*O.Ov 
818  CGNIlNUE 

80  1010  1*1*11 
lUHPI2(l>«0.0 
1010  LONllMUi: 

HU  81V  1*1. JT 
M.  IDA  It  1)*0.00 
(,1V  CONI  unit. 

if  UkklOXCASE.ll.NE.V.VVV)  60  TO  318 
1-  IlilAluCASC.l  • 

,i  IkiAKCASE.?) 

P*1MAD(CASE»3)  * 

0kM61 =SQRT  <  <  PNTk 1 1 . 1 . -FNTM  J» 1 ) >  4*2+  <  F  NTK  < I » 2  > -FNTK  <  J . 2  >  >  **2+ 
iKFNIM  1 .3)-PNIM  J.3) >442) 

8KN62=!iftRT<(FNTk<J,l>-FNTkiK.l>>**2FtPNTK<Jt2)-FNTK<K.2>>**2+ 
KPNlkt  J.3>-fNTMk»3>>442) 

8k H63* SORT <  <PNTM  K .  1  >  •  FNTK  <  1 . 1  >  >  4*2+  < FNTK i  K .  2  > -FNTK (1.2)1*42+ 
i(PNIkik.J>-PNIK<I»3#)*42> 
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DIN6l»SQRT  <  EPNU  <  1 • 1 l-PNTi i J»1 )  )4424(PNTT<  1 *2)-PNTI ( J*2> i**2+ 
IEPNTl(Ir3>-RNTl<J,3>>**2> 

0IH82*&GRT  <  EPNTHd*  I  )*PNU  <  K  >  1 )  >  4*24  (PNT1  <  j*2)*PMTI  <K>2))**2+ 

I  ( WIT-1  E  J>  3 ) -PNT  IE  K » 3 )  )  662  > 

DI«63aS0RT  <  l  PWT I  <  K » 1  > -fNT  1  <  1 » 1 ) )  **  2f  (FHT I  ( Kt2 ) -F;HT  I  <  I » 2  >  >  **2+ 
t(  WI  <  K .  3  >  -PNT I » I #  3  >  >  6*2  > 

'■  ■  ■  tiRlTEE5*926)  •" 

MRJ,Tt(!5«f27)I»  J»DIM6l*J»K»&Ih62*KtI»lftrH(»3»i»jVt«KM(il*J»K»CiKrt02 
4>K»l»DKM63  .  .  V 

c  •'  /, 

C  IF  THERE  ARE  ANY  MORE  RECORDS*  60  GET  THEM! 

C  "■  ../■  V:'..  ,  ;  •  ' 

318  K0UNJ*KQUNT+1 
■  :  IF  E  (COUNT.  LE.NREC)  GO  TO  500 

c  . ,  .-V,  r  .  ■  v  ..." 

c  Format  statements  for  prompts  and  results 

C  -  ■  .  ;■ 

5  FORMAT ( '♦'» 'Enter  naee  of  joint  tested  ES-935  ' ) 

io  format (9Ai) 

IS  FORMATE '4't 'Enter  subject  name  or  number  CS-253!  ') 

20  FORMAT E25A1) 

25  FORMAT( '0' » 'Enter  a  description  of  the  test  [S-801  ') 

30  FORMAT(SOAl) 

35  FORMAT E  '4'  *  'Enter  date  file  name  ES-133!  ) 

40  FORMATE 13A1) 

45  FORMATE '4' t 'Enter  number  of  records  to  be  reed  CN-51!  ') 

50  FORMATE  15) 

51  FORMATE t 'Enter  the  corresponding  fixed  bods  locetor  file  ns 
Ue  Cs-13i;  ') 

55  FORMATE '0' > 'Enter  the  distances  in  centimeters  el on*  the  loca 
ttor  axes  to  the  desired  fixed  bode  center  !') 

60  FORMATE '4'*T15. 'Enter  the  X-COQRIUNATE  CN-83!  '/ 

65  F0RHATEF10.5) 

66  F0RMATEF8.4) 

70  FORMATE ’%' .TIS 'Enter  the  Y-COORDINATE  EN-83!  ') 

75  FORMATE  t T15>  'Enter  the  Z-COORDINATE  CN-8.1!  '  ) 

76  FORMATE '0'» ‘Enter  the  coordinates  of  the  fixed  joint  center 
k  w.r.l.  the  fixed-bodv  system!') 

77  FORMATE i 'Enter  the  joint  coordinate!  ) 

78  FORMATE '4' * 'Entei  the  Joint  y -coordinate!  ') 

79  FORMATE '4' » 'Enter  the  joint  £-coordinate!  ') 

80  FORMATE '0' »' Input  a  3x3  matrix  (by  rows)  that  drfines  the  body 

k  axis  system  w.r.t.  the  locator  axis  system  !  ') 

85  FORMATE '♦'» 'Enter  the  cor respond ina  initializes  file  name  T 
AS— 253 •  ') 

88  FORMATE '4' » 'Enter  which  side  of  the  force  applicator 

t  faced  the  sensor  assembly  donna  the  test  CA  or  61!') 

100  FORMATE '0'»T78.9A1.  JOINT') 

105  FORMATE '0'»T5» 'DATE!  »9Al»/»T5i  TIME!  ' »8A1 »/ . T5* SUBJECT 
1NAME  AND  NUMBER!  '»25A1) 

110  FORMATE  '  '»T5t 'DATA  FILE  NAME!  ' »13A1»/* 15» 'NUMBER  OF  RECORDS! 

I'»I5.//»T5» 'DESCRIPTION!  '»80A1> 

200  FORMATE 'O'rloSE '-')/) 
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205  F0RNAT<'0'»165('- '#//» 

206  FORMAT!'  ',16S!'-'>* 

207  FORMAT!  *0'.16SC.)> 

275  FORMA)!  O'.'EkROR  ON  ATTEMPT  TO  RFAD  LOCATOR  FILE  ') 

280  FORMAT < '0' » 'ERROR  ON  ATTEMPT  TO  READ  INITIALIZING  FILE  ') 

285  FORMAT < 'Oi 'FOUR  EMITTERS  ON  CUFF  READ  ZERO-PROCEEDING  TO  NEXT 
i  RECORD  ' ) 

207  FORMAT! 'O'.  ERROR  ON  A1IEMPT  10  READ  TRANSDUCER  CALIBRATION 
k  MATRIX  DATA  FILE*.') 

3oo  format <  o'.no.  error  on  attempt  to  read  next  record') 

311  FORMAT (0'fT20f  NOMINAL  JOINT  CENTER  AS  INITIALIZED'/) 

3-10  FORMAT  i  0' »/•*'»  Are  there  other  files  to  be  processed? 

iCY/NIi  ') 

345  FORMAT (A4) 

432  FORMAT (12) 

604  I  ORMAf ( 'f ' »T15» ' T- ! ' .11 » ' » ' » II. ' ) !CN-63!  ') 

626  FORMAT ( '4' t 'Enter  the  distance  fro*  the  aero* ion-based  emitter 
♦  to  the  center  of  the  huiierul  head  CN-83!') 

628  FORMAT ( '♦' f 'Enter  the  distance  fro*  the  center  of  the  hueeral 
i  head  to  the  center  of  the  elbow  Joint  CN-83!') 

631  FORMAT! .  'Enter  the  lateral  distance  to  the  Ions  bone  axis 
k  [N-83!> 

702  F0RMAT<1F9.1»4F9.2. 11F10.2./) 

703  FORMAT < 9F V. 2. BF1 0.2.//) 

704  FORMAT ( 12F 10.2) 

731  FORMAT ( '  '» 'Enter  values  for  the  nominal  huaeral  axis  orientation! ' ) 
734  FORMAT! '♦'» 'Theta  Nominal  I  ') 

732  FORMAT < ' I ' » ' Phi  Nominal!  ) 

733  FORMAT! 'Enter  the  ‘Dest-Fit*  sphere  radius!  ') 

750  FORMAT!  O'. ‘F-A  EMITTER  IS  ZERO.  PROCEEDING  TO  NEXT  RECORD!') 

881  FORMAT <4F8. 3) 

804  FORMAT! '*'» 'Enter  the  output  data  filenaae  for  restoring 
I  forces  and  moment  i,  CS-133!  ') 

92c.  FORMAT!'  ' .T5» ' INITIALIZED  DISTANCES! ' .T63.  DISTANCES.  CURRENT 
k  RECORD!') 

927  FORMAT!'  '  »3!I1 » ' - ' » 1 1 » ' =' »F5.2» '  ' ) .TA0.3(I1. '-' .11. ' . 

kF5.2. '  ')) 

C 

C  CLOSE  UP  DATA  FILE  i  THAT'S  ALL  FOLKS! 

C 

2001  (LOSE  (UNIT- l > 

CLOSE  (UNIT^2) 

WRITE (5, 207) 

URITE<5.340> 

|.EADi5.345)ANt. 

lFtANS  .Ell.  'N')uO  tu  Mw 

WF‘l  IF  (5.35) 

R 1 AIm  S . 40 )  <  F 1 NAME ! 1 *.1-1.13) 

OKI  IE! 5.45) 

R'l  .TlU  5  *  50)  NRFX 
UR 1  IE (5.25) 

RLAlh  5*30 )  (MF’SSv  1  *  *  1  ;;1 .80) 

IK'El  ^1 
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■  ■:  Mvtoi  " 

.•  MJUNT*1  1  ■  : 

59/  WKire<5»Sl ) 

-  RWa<5»40»ERft45/XF2N»W«<I)»^l»i3) 

55b  WRITE <5. 884) 

tfAfi  <  5 1 40 » ERR-558 )  < F4NAHE  U),I=i,i3> 

•  do  TO  2001V 

3000  WRITE (5, 205)  ■  -  ^ 

WRttE(5»2?5> 

GO  TO  5000 
3500  WR1TE<5»205> 

WRITE <5, 200)  '  ■  ■  ■  ■ 

.  GO  TO  5000  , 

:  3700  uRItE<5tZ65>  '""1, 

AOUNt-KOUNm  '>■ 

If (KOUNT.GT.NREC)  GO  TO  2001 
GO  TO  500 
3000  URITE<5.287) 

GO  TO  500 
3*00  URITE\5»750) 

K0UNT*K0UNT+1 

GO  TO  500  . 

4000  URlTE<5»205) 

WfilT£<5,300> 

GOTO  20' 

5000  URITE<5. 205) 

STOP 

m 

c, 

c 

i.UPRQUTINE  SPHERE <VEC, THETA, PHI) 

r  £ 

C  SUBROUTINE  TO  CALCULATE  THE  SPHERICAL  COORDINATES  (THETA, PHI) 
C  OF  THE  VECTOR  'VEC*. 

C 

DIMENSION  D(3>,VEC<3) 

DATA  PI/3. 1415*2654/ 

VECHA6-SQRT < MEC ( 1 ) 4*2+ VCC ( 2 ) 4 42+ VEC ( 3 > 4*2 > 

IF (VECHAG.LT. 1.001)  GO  TO  10 
B( 1 )“VEC( 1 >/VECHA6 
B  <  2 ) *VEC ( 2 ) /VECHA6 
B<3)*VEC<3)/VECHAG 
60  fu  15 
10  B( 1 )=VEC(1 ) 

8<2>SVEC(I) 

B<3)-VEC<3> 

15  Al-SORT<&( 1 )**2+B<2>**2> 

TNEfA*(ATAN2<Al,B(3) ) )*180.0/P1 

IF(THETA, LT, 179, 99. OR. THETA. GT. 0.01)  GO  TO  20 

PHI*0,0 

GO  TO  30 

20  PHI*<ATAN2(B(2)»B(i ) ) )*180.0/PI 
30  RETURN 


ISO 


c 

SUBROUTINE  UNITVRIVEC)  :L 

C  '  ' 1  :£'■  ..  .  . 

C  SUBROUTINE  CALCULATES  A  UNIT  VECTOR  FOR  ANT  GIVEN  VECTOR 

C  '  '  .. 

DIMENSION  VEC < 3 ) 

VECMAG*  <  VEC ( 1  >  **2 )  +  < VEC  t 2 ) *42 )  +  < VEC  <  3  *  * *2 ) 

VECrtAG-SOR  T ( VECMAG )  ,  ’  ‘  V 

IFtVLCMAG. EQ.O.O)  VECHAG=i .0 
HU  10  1-1.3 
VFC<I)*VEC(I)/VLCMAG 
10,  CONTINUE 
RETURN 
END 
.C. 

SUBROUTINE 

c  ,  ......  .  . 

C  THIS  SUBROUTINE  SELECTS  THE  'MOST  ACCURATE*  LOCAL  AXIS  SYSTEM 

C  BASED  ON  INTRA-AXIS  SYSTEM  DISTANCES  AND  RELATIVE  SKEW  ANGLES. 

c  .. ■;  ■'  "...  •'  ‘ 

DIMENSION  PNTK(e»3)»TISl3»3)»TISK<3*ii»TJS(3»3>»TJSK(3f3) 
DIMENSION  TI J(3.3) . I 1JK<3p 3) #QEN<3#3) »VECI (3)>VECK(3) 

DIMENSION  ERRrON:<)»3)ffi<i)»Gl(3)  ’  : 

INTEGER  TRIADfCASE 
RLAL  JNTOl'CVJTDSnG 

COMMON  /‘AC /  PNT 1 <  6  *  J / • COSMAT i  SO » 3 )  t COS TRN ( 60 » 3 ) » DRCOS ( 60 >3) » 
*DRCTRN(60.3) »TRlAD(iO»3)* JNTVEC<20»3> 

C 

'  EK'KSR-0. 0  ■'  ■  . . '  '  ' 

ERROL) =0.0 
C 

Du  20  MH=l»20  1 

C 

(l-TRlAIi(MMil) 

J1-TRIAD(MM»2) 

M- TRIAD(MM»3> 

iFtF'MTKY  t T * i >.Eu.O.O.OR.TNTK<JI*l).EQ.O.O.OR.fNTK(Kl»l).EQ.O.O) 
1  GO  TO  19 
C 

KK=(MM*1)*3 

c 

c 

DO  J  J- 1  *  3 

(1SU.  J)=C0SMAHKM1»J) 

T  1S(2»  J)-C0SMAT(KM2i  J> 
n  }<3.J)*C0SMAT(KM3»J) 

C 

1  ISM  1.  J  )-■  DRCOS \KM1.  J) 
f  ISM  J » J)  -  DRCOS  (KM-  2  *  .J ) 

I1SR(.;..)>  DRI  if.-, KMT.  J) 

J  tuNIINUE 
C 


LGCAXSl F NTK . CASE  *  ERRTOT  > 


15/ 


noui 


ftMTlfO  " 

■  HKN?2»0  .  ■  .  ■  . 

•  -  PQ  JO  N=J.2G 
I2=TRIAD(N# 1 ) 

.  j::=TkIAP(H»21  V.-  • 

i\2*TRIAD(N,3> 

IFtFNTMI2»  1  >  ,EO.O.O.DR.FNm,(  J2#  1 > .EQ.0,0,0R.FNTK<K2»  i  hfQ.O.O) 
*  GO  TO  10 
H=<N~1>I3 

if  (N.EQ»HH>  GO  TO  10 

c.  .  \  -v7  '•  •  ■  S'  ,  ;■ 

‘00.5  j-i.3  ..  ■-  :<■  ■ 

TJS<l>J>»COSTRWHfl.J) 

tjs(2>J)«costrh(h*2»j)  >  •••  . 

TJS(3»J)*C0STRN<H+3tJ) 

C  t  V  :•  ■ 

TJ8K(1»  J)»ORCTRH(rt+ri  J) 

'  ? J3K ( 2 t  J) *DRCTRN (HF2 1 «? ) 

1  TJSK(3»^=0RCTR><<M+3fJ>  v' 

CONTINUE  ■’  ‘ 

,  CALL  6HFRI<  (  T I S .  T  JS»  II J.  3»  3 » 3 ) 

CALL  GHPRP(iISkfTJSK>TIJR'3i3'3) 

CALL  HINV<T1JK*3*P«F1»G1) 

CALL  GHPRD(U jiTI JK»GEN'3'3»3> 
TR^£«(6EN<ia)«*2+eEH(2»2)**2*0EH<3t31**2) 

0Ahs.5$MRACE-l  .0) 

IF  < 6AH. GT . 1 . 0 . AND ; SAH. L T , 1 .05 )  GAM= 1 . 0 
GAh*AC0S<6AH> 

J7D5HG*S0RT(  ( JNTVEC(N»1  JNTVEC(N»2)tl2>,M  JNTVEC<N>3> 

1**2 >> 

6AhSlN-aIN<CAM) 

DELTAS3  JTDSMG*GAHS I N 
DELTAS»BELTAS*«2 
ERRSK=ERRSK+DELTAS 
NKNTl*MKNmi 
III=TRIA0(Hh»2) 

JJJf TR1AD(N»2) 

IFvIII.EQ. JJJ)  GO  TO  10 


DO  7  L-l *  3 

VEC  1(1.)  «F'NT  I  <  J  J  J » L )  -FNT I  <  I II  •  L ) 

VECK <  L ) *F  HTK ( J J J . L  ) -PNTN ( I II » L ) 

7  CONTINUE 

C 

VEClrt6-S0RT(<VECI(l)A*2)+(0ECI(2)*#2)+(V£CI(3)**2) ) 
VECKHG=SGRT ( ( VECK ( 1 1 **2 )♦ < VECK < 2 )*#2 H 4 VECK ( 3 > **2 ) ) 
DELTAD=AB!i<OECKrtG-VFCIHG) 

0ELTAD»DELTAD*<2 
ERRDLT  3ERRDL  T+DE1.  f  AD 
HKNT2*HKNT2+1 


158 


10  CONTINUE 

C 

RNRNJ  l=Tl.OAT<NRNT  1 ) 

RIlKNI 2*FLOAT ( HKNT  2 ) 

HIV1-M1KNT141.0 
UlV2-RhKNT2*l.d 
iKHKNIl.Nt.Ol  GO  ro  il 
bKERR=9.999 
(iU  Til  12 

11  jKlKK-  S0RT(ERRSK/IiIV1  ) 

12  [F. ri«\NT2.«4E.O>  GO  10  13 
ULRK =9.999 

i.G  rn  14 

13  HERR=SORT<  ERROL  T/MV2) 

14  LkklGT (Hh» 1 )-Sktkk 
ERR  rOl  ( HH ,  2 )  =GERR 

I  kk  TO  T  ( NH ,  3  >  =$QK1  i  ( SRERR4  *  2  TDERR*  42 ) /2 . 0 ) 
L 

LkkSK-0.0 
ERROL T=O.0 
(.0  TO  20 

ly  ERRrolt  Mil  >05.0 
1  R'RTOl  <  rtH » 2 ) -25 . 0 
LkRIOT (MN»3)=50.0 
l  kk'L.K-0.0 
l.RKUL  T-O.O 
20  CONTINUE 

i 

I  rtSE-l 

i:RT01L-ERRTOT(1.3) 

ItO  25  1  =  1,19 

II  akrUTL.LE.ERRT0Ttl*l,3i>  GO  TO  25 
cASE -Ill 

1  k'lUll  -ERRTU1  <  IT  1 ,3) 

25  CONI  INI1E 
RF1URN 
ENU 


sUGRUUT  1 NE  MGANAL  ( 0U1  PUT , VT » HT , U JT , 0UTFT2  > 

i 

HI HENS I ON  0UTFUT<22>,0UTFT2<12>tUJT<3»3),MF*<3>,MJTT<3>.URJT<3> 
OIHtNSION  FJTRt3) ,HJ1R(3, 

REAL  HFBiNJTT »nJTR,HJTRHG,hURHAG 
DATA  P1/3.1415V2694/ 
i: 

C  CALCULATE  TOTAL  Kl  STOKING  ttOHENT,  1 RANSF OR'H  INTO  JOINT  SYS1EN, 

L  ANG  FACTOR  OUT  COHHJNL N I  ALONG  R  VECTOR 
i: 

HFRv  l  >  =0U I  TUI  <  JOHOUTTU  f  <  1 J ) 
hHM2)  =  0UlFUl  <11  HOUTT'Un  14; 

Nl  H(.<>  OUll'UI  U2 )  I1HIII  Ul « 15) 

CAN  bhTKliUUI  .HTb.lvIl  1 ,3,3.11 


ISO 


non 


IIRJTC  l  )»SIM<  Vf ;  *L0S<H1  > 

URJl<2>*SlM<Vl»*blN<HF> 

URJt(3)^CUS(VI > 

call  unitvr<urjf> 

AURfWG-(rtJnU)*Uf  jF<l)+rtJTl(2)*URJT<2)+MJTT(3)*URJT<3)) 

QUTPT  2  <  4 )  -rtllRHAG 

NJYRU )  -Hjm  1 )  -  (MURMAG4URJT  <  1  > ) 

HJTR i 2 > =AJTT ( 2 ) - FMURMAGBURJTC 2 ) ) 

HJTR i 3  ) -h JI T 1 3 ) - ( HURNAG*UR JT 1 3  >  > 

MJTRl1d*SQRT<HJTR < 1 ) **2TMJTR<  2 ) M2+MJTR ( 3 ) **2 ) 
0UTPY2(9)*MJTR\ 1 ) 

UU1PT2F  10)*HJTR<2) 
l ill  I  Pl'2  ( 1 1 )  *H  JTK  ( 3  i 
UU  IP  F2  ( 1 2  >  =M JYRMU 
l ALL  UNIlVRlrtJTR) 

FJTR<l>=<NJTR<2)*URJT<3)-URJT<2>*HJTR<3>)*<HJTRM6/l.t» 
FJTR(2>=-<HJTR<1>*URJT<3)-URJTU>*HJTR<3>>«URJTRHG/1.0> 
FJTR(3i=(HJTR( 1 )*URJT<2)-URJT ( 1 )<MJYR<2> )*<HJTRHG/1 .0) 

F JTRMG«SQRT<  F JTR ( i ) **2FF  JTR<  2>  M2FF  JTR<  3  >**2 ) 
0UTPT2(5)*FJTR< 1 ) 

0UTPT2(6/=FJTftt2> 

0UTPT2F  7 ) =F  JTR  <  3 ) 

0UTPT2(8)=FJTRHG 

RETURN 

END 

C 

C 

SUBROUTINE  DRCMrtT<A*B»C> 

C 

C  THIS  SUBROUTINE  CALCULATES  THE  DIRECTION  COSINE  MATRIX 

FOR  AN  AXIS  SYSTEM  BASED  ON  TUG  COPLANAR  VECTORS  (A  and  R>. 
THE  RESULTING  MATRIX*  C>  IS  ORTHOGONAL  AND  UNITARY. 

DIMENSION  A(3>»Bi3>iC<3»3> 

AMA6=SQRT(A< 1 )**2+Ai2>*»2IA(3;*Y2) 
&HAG=SGRT<B(1)**2+B<2)**2+B<3>*»2> 

C(l*l)=A(l)/AMf,G 
CU*2)=A<2)/AflAG 
C(1»3>=A(3^/AHhG 
C(2» 1 )-B< 1 )/DMAG 
C<2*2)-B(2)/Bhnij 
Ci2*J>  : D >  3 ) /  RM6G 

C(3*l;=<C<i*J>*C<2*3))--<Cl2*2>*Ctl*3>) 
C<3*;>=<C<1*3>*C(2»1>>-<C<2*3)*C<1*1>> 

C(3*3)-(C(1*1  )*i:(2f2)>-\C(2*l)*C(i*2)) 

C<2*l)  =  (C<3*2XC(l*3))-(C(l*2)IC<3*3)) 
C;2»2)-(C<3.3)»C(l*i))-<C(3»l)*CU.3)) 
C(2»3)=(C(3»l)*Ca»2))-(C(l*l)*C<3»2)> 

DO  10  J=1 *3 

ChAG=SQRT(CvJ*l'*42+Ci J*2)**2+C<J.3>**2> 

DO  S  1=1*3 
C< J*I >=(  ( J*  1 ) /'CMAG 
S  CONTINUE 
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10  CONTINUE 
RETURN 
END 
C 

SUfcKllUT  1NE  RESULT i R» OUTPUT ) 

C 

C 

UlnENSION  R(3) tX<3» » Y(3> iZ(3) tHGHXTR(3) f HGHYTR(3) tHQHZTR(3) 
DIMENSION  FRCB0<3> tPHQHBD(3)iHOHBB(3>pHQHTBD(3)fOUTPUT(22) 
REAL  HOHXTR » HOhYTR > HOHZTR » HONDO » HOHTBD 
COMMON  /BC/  FRCTRN (Alt TRNAX (3*3) 

DO  7  J-l#3 

X ( J ) -FRCTRNT 1 >  4TRNAX (i *  J ) 

Y(J>=FRCTRN(2)*TRNAX(2»J) 

2 ( J ) “FRCTRNT  3) *  TRNAX  <  3 » J ) 

HONX TR  <  J  > “FRCTRN <  4 ) 4TRNAX ( 1 » J i 
HOMY  IR<  J)  JFRCTRN<i»)4TRNAX(2i  J) 

NGHZ  T  R « J ) “FRC  TRN ( o » 41RNAX (3* J) 
i  MINI  1NUE 

DO  b  1-1 *3 

»RCMtl)*X<im«lHZ<I) 

UUTFUKSm-FRCBDU) 
l  HONDO < I > =NONX TRi 1 ) PHOMYTR ( I l+HOMZTR i I ) 

OU I  F‘UT  ( 9t  I  i  aF*HONBD(  I ) 

0  OJNUNUE 

t: ALL  CRSPRIK  R t P RCDD •  HONDO ) 

DO  9  I -If 3 

ilOnlDOlI )  =PNOMBO<  1 )  PMGHBTK 1 ) 

OUTPUT! 12+1 >*HOHBD< I) 
i  CONTINUE 

UUIPlIf (V )-SORT ( tPRCOOi 1 >442)+<FRCBB< 2>*42>+<FRCBD<3)**2) 1 
OUTPUT ( IS) “SORT <  (HQHIhOc 1 )442)+ (HOHTBD! 2 >442)+<HGHTBD( 3)442) 
RETURN 
1  NO 

L 

c 

AlORUUTINL  CRhPROfR.l  fOUl > 

c 

01 HENS ION  R(3) if <31 fOUT<3) 

OUT< 1 )=(R(2)4F(3) )-(R!3)4F(2) > 

0UT(2)MR(3)*F<l)f-<R(l)*F(3)) 

0UT(3f=(R(l)$F(2) >-(R(2)*F(l)) 

RETURN 

LNO 

C 

C 

MIERDUIINE  FORf  ‘  1  (  IN  1 1> » OUNSO  t  P'T  APR » FT  AX  IS) 
l 

(;  bUDROUflNE  1U  Lh1.LIN.hTE  UIL  POINT  of  force  application 
C  ANt  THE  AXIS  SYSTEM  OF  1HE  FORCE  APPLICATOR 

L 

MnFNSI  UN  P 1  AFP  *  3 ) » NuRhAL  *  3  >  t  P  P 1PT2  <  3 ) i P 1 2P  T  3 1 3  > 

01 HP  NS  ION  PTA*1S<3»3>  *A(3)rY«3) »PNT0<3» 3> 
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REAL  NORMAL » NOALEN 
INTEGER  6UNS0 
1M3  10  1*1.3 

mnrui-fMTGu'.i)  iNiuii.n 
FT2PI3U>=PNfU<3.i>  FNI612.I) 

10  CONTINUE 

Pl2MAG“S0RT<F*TlPT2ll)*#2+PnP?2(2>**2+PTlPT2<3)**2) 
P23NAG*S0RT  <  PT2PT3  (1 )  U2  FPT2P  T3  ( 2  >  M2FPT2PT3 i 3  >  *02  > 
F120IF«ABS<P12HAG-12.?0) 

P23BIF=AB3(P23hAG-9. 10 • 

D0ri23=PTlPT2(l>«P12PT3(l>+PTlPT2(2)»PT2PT3<2)FPTlPT2(3>* 

JPT2PT3(3) 

1 HA= < AC0S< £iOT123/<P12MAG#P23HAo ) i > *57 . 2958 
THAOIF=ABS  <  90-THA ) 

IF(P120IF.GT.0.30)  URIfE<5»40)F  12D1F 
IF(P23DIF,GT .0.30)  UR1TE(5»45>P23BIF 
IR  rHABiF.6T .5.0)  WRI TE<5.50)1HABIF 
CALL  CRSPRD  ( FT  1 P 1 2  .PT2PT 3 1 NORMAL ) 

1RGUN8B  .Ell.  A  >6010  IS 
NORMAL <1 >  = - 1 . 0*NURHAL  <1 > 

NORMAL i 2 )  -- 1 , 01 NORMAL  1 2  > 

NORMAL ( 3  > -- 1 . OINORNAL  < 3  > 

15  NORLEN" 5QRT l  r*  T2P  T3  ( 1  > **2+PT  2FT3 \ 2  >  **2FPT2PT3 1 3  >  *12 ) *0 . 5 

CALL  UN  I  TOM  NORMAL.' 

00  20  1=1.3 

NORMAL i I > -NORMAL < I ) 1N0RLEN 
PT2PT3( I )*PT2PT3< I)*0.5+PNTG(2» I > 

PTAFPi  I  > =NORmAL  < mPT2PT3<  I ) 

X( I)=FNTG<2»I )-PlAPP( I ) 

Yi  l>-'F‘NTG(3.I>-F'TAPPi  1> 

20  CONTINUE 

CAM  UNITVR<PT1PT2) 

CALL  UNITVR(X) 

CALL  UNITVRIY) 
lFlGUNSD.EO.'B'.  GO  TO  25 
UO  23  1=1.3 
Y  <  1  > — - 1 .0*Y  < I > 

23  CONTINUE 
25  no  30  1=1.3 

PTAPP < 1 >  =PTAPF < I)+FT 1 FT2  U  >  *30 . 0 
PTAX 1S( 1 » I >=-X ( I > 

PTAXISl 2.1 )=T< I ) 

FTAXIS13. I »=-PTlPT2l I i 

30  CONTINUE 

40  FORMAT!  0  » 'F‘12  discrepancy  isi  »F6.3> 

45  FORMAT i '0' » 'f‘23  discrepancy  is! '.FA. 3) 

50  FORMAT <  'O' . 'Cross  product  discrepancy  is. ‘ »F6, 3. 'decrees  > 

RETURN 

END 

C 


PROGRAM  CALEXP 


C 

C  THIS  PROGRAM  USES  JOINT  ENVELOPE  DATA  TO  CALCULATE  THE  JOINT 
C  SINUS  EXPANSION  IN  THE  SANE  FORM  AS  FOUND  IN  THE  CALSPAN  ATI 
C  MODEL i  THE  SANE  PROCEDURE  IS  FOLLOWED  AS  IN  THE  BAYLOR  BIO- 
C  STEREOMETRIC  LABORATORY  REPORT. 

C 

external  ffct 

DIMENSION  J1 NAME i  9  >  »UU I  DAT U2»'  2) » DAT A< 72 » 4 > 

DIMENSION  PTMAT<?2»3)»U1<4>»U2<3)»PTS<72»3)»ANG(72»2) 
DlnENSlON  UORK(6o>  »P<  1 1 )  iDATl  <72i  2)  fCQETUO) 

INTEGER  YES»ANSl.ANS2.ANS3»ANS4.ANS5 

lOoICALAl  SNAMEt25>»HES5<80>.FNAME<2S>.F2NAME<13>iF3NAhE<13> 
LOGICAL*!  F4NAME<25) 

DOUBIE  PRECISION  DA f 1 1 UGRR » P I • P » HOT • HTRAD » OTRAD » COEF 

DOUBLE  PRECISION  DARG1 « DAK02 • DARG3 * DARGA 

DA-TA  IREC/I/PI  /3. 1 4 1 592*53509 7931 DO/COEF / 1 0*0 . OBO/ 

DA r A  YES/'YVN/'N*  / JREC/ 1  /FV 1 1  *0 . ODQ/UORK/6660 . ODO/ 

C 

510  WK1TE<5»1S» 

READ(5»20*ERM5lO>  <SNAME<I>*I=I»25) 

515  WRITE <5>?5) 

REAlM  5*30iERR~51S>  (HESSi I ) » 1=1 iGO) 

520  URITE<5»35) 

Ri AD< 5» 20»ERR»520 )  < INANE ii)»I-l»2S) 

521  WRITE (5. 220) 

REAlM  3 • 221 • ERR -521  )F.PS 
IMEPS.EO.O.O)  EPSJ0.0005 

522  UR‘11E(5»230) 

RE  AIMS*  221  *ERR  ’522)1  To 
If  (ETA. EG. 0.0)  1 IA-0.0005 
WKilE(5fl) 

1  FORMAT! 'tENIER  X-TRANSLATION  FOR  THE  F.  B.  C.  !  CF9.63:') 
READ(5»221)  X TRANS 

URITE(5*.I) 

2  FORNAX  TENTER  Y- TRANSLATION  FOR  THE  F.  B.  C.  !  CF9.63!  ) 
REALMS. 221 )  YTRANS 

URITE<5»3) 

J  FORMAT i 'TENTER  2-TRANSLATION  FOR  THE  F.  B.  C.  !  CF9.63{') 

RF AD (5. 221)  ZTRANS 

523  WRITE(5»241) 

READ ( 5 » 242  »ERR-523 ) ANS t 
mO  WRITE  (5*  300) 

READ(S»242iERR3600)AN52 
1HANS2.NE.YES)  GO  TO  620 
610  URITELjf  310) 

READ(5i40tERRs6l0) (I 2NAME1 1 ) *  1-1 » 13) 

620  WRITE <5. 320) 

k'L  AIM  5t242»ERR-620)ANi»3 
II  (ANS3.NE. YES)  GO  TO  640 
630  UR  I TEiSt 330) 

RE  AD <  5 » 40 » ERR'-630  Ml  3NANL  ( l  >  *  1  - 1 » 1 3 ) 

640  WRITE (5. 340) 
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440  FORMAT <  t DO  YOU  WISH  TO  CREATE  A  DATA  FILE  CONTAINING  EXPANSIO 

♦N  COEFFICIENTS?  CY/MJ') 

R£A6<5*242iERR«440>  ANSA 
IF(ANS4.NC.YES>  GOTO  42 
450  HFITE;S«350> 

350  FORMAT! '$  * ‘ENTER  THE  OUTPUT  FILE  NAME  FOP  EXPANSION  COEFFICIENTS 
♦!  CS-251. ' ) 

R£AD<5.20*E»R*650>  tF4NAME<I>*l»i#25) 

C 

C  LOCATE >  IDENTIFY*  AND  ACCESS  1HE  DATA  FILL 

C 

42  CALL  ASSI6NU  * f  NAME  •  25) 

KN-0 

DO  50  1*1.72 

READ! 1 »820*ENGS51 iERR«525> ( DATA < I  *  J ) t  J*1 » 4 > 

IF< DATA! Itl> .EG. 0.0)  GO  TO  50 
KN»KN+1 

PTHAT  (KN»  1 ) =D<AT A  <  I  *  2  )  -XTRANS 
PTHAT (KN » 2 ) =DAT A ( I . 3 ) - YTRANS 
PTHAT (KN*  3 )  --DATA(  I  *  A )  -ZTRANS 

50  CONTINUE 

51  CLOSE  (UNIT3! > 

GO  TO  52 

525  URITE(5>2000) 

GO  TO  2001 

C 

C  FIT  THE  DATA  Tu  A  'DEST-FIT*  SPHERE  IN  SPACE. 

C 

52  CALL  SPHFITIPTMAT *U1 *ANG*FTS*RN) 

C 

C  USE  THE  JOINT  SINUS  OUTLINE  ON  THE  SPHERE  TO  CALCULATE  THE 
C  NORMAL  (DEFINED  BY  THETA  AND  PHI)  OF  THE  ’BEST -FIT’  PLANE  TO 
C  THESE  POINTS. 

C 

CALL  PLAFIT<FTS»U2*KN»THETA*PHI ) 

C 

C  FRON  THIS  NORMAL i  CALCULATE  RELATIVE  THETA  AND  PHI  ANGLES  FOR 
C  THE  SINUS  OUTLINE  POINTS. 

C 

VC3THETA 

HC=PHI 

VCRAD=VC*P I / 1 00 . GO 
HCRAD*HC*PI/lAO.oO 
HO  100  I-liKN 
VO-ANGl 1*1) 

HOsaNG(I *2) 

IF<HO.LT. -170.0)  H0=H0+360.00 
VQRAD=VQ*P 1/180.00 
HORAD=HO> FI / 1 80 . 00 
ARG1=(SIN( VORAD ) 45 IN ( HORAD-HCR AD ) ) 

AR62- ( SIN( VORAD ) 4C0S  <  VCRAD *  *CGS ( HORAD-HCRAD ) -COS ( VORAD ) * 
ISIN(VCRADj) 

ARG3= i COS ( VORAD  >  4CGS ( VCRAD ) +S l N  < VORAD ) *S I N ( VCRAD ) 4C0S  <  HORAD 


l-HCRAO)) 

DAR61-6M.£<AR6i> 

MRG2»MLE<AR02> 

DARG3»DRE(ARG3) 

HTRAB*ATAN2  < DAftGl ,  0ARG2  > 
OARM^OSQRKOARGHliTDARGSUS) 
VTRA0-ATAN2 ( DARG4 » 0ARG3 > 
DATI(l»2>*VTRAD 

I H  HI  RAO .  L  T .  0 . 0M»  HTRAB=HTRA0F2 ,  000*F  I 
OAf!(I»I)*HTRAO 
100  CONTINUE 


t  \ 

C  lUfiEUTE  THE  EXPANSION  COEFFICIENTS  FOR  THE  JOINT  SINUS • 
L  •  ’ 

CALL  OAPLLTFFeT.KNtlO.P.UORK.BATl.IER) 

CALL  OAF‘FS<UQRK*  10* IRES* -1 »EPS*ETA» IER  > 
if  l>0  104  1*1 *KN 
0104  OATH  I  *li*DATIU.  1)4180. 00/PI 
hH=IRES-l 
rt*NH4ihHtl>/j 
00  10b  1*1 » IRES 
10b  LOEF < I ) -WORK i  HF I  > 

C 

C  UK  ITL  I  HE  OUTPUT  OAT A  TO  01SK 
C 

iF\ANS2.NE.YES)G0  TO  109 
CALL  ASSIGN  (l*F?NAN£»l3) 

CALL  OUTPUT  <  COEF  * OUT  DAT » KN) 

00  104  1*1 » 120 

UK  I  Ik  < 1 *700)0UT0AT < I  *  1 >  *GUTDAT( 1*2) 

0  irPE  *»PHl.THETA(CALC.)-'»OUTOAT(I»l),OUTOAT(If2) 

106  CONTINUE 
Cl.USt  (UN1TM) 

C 

C  UR 111  KHO-GArtMA  OATA  TO  01 SR 

C 

109  IMANbJ.NE.fES)  GQTu  111 
CAtL  ASPIGM(l»F3NAhE»l3) 

00  10/  1*1 *KN 

UN  IT  E  < 1  * 700 ) OAT I t 1 > I ) >  OAT  1(1*2) 

107  CONTINUE 


Cl  USE  iUNIl«l ) 

URilLvb*  146)  RN*<F3NANEUJ)*IJ=1.13) 

146  FORHAT ( '0' * 15* '  RECORDS  OF  (PHIiTHETA)  RAW  DATA'. 

1  '  WERE  OUTPUT  TO  FILE ' »5Xt 13A1 ) 

111  IF (ANS4.NE. YES)  GOTO  108 
(  AI  L  ASSIGN!  1  *K4NAhE  *25) 

UKITLC 1*701)  (CUEM J)*J-1* 10) 

701  FURrtAK  2E20. 10) 

CLOSE  (UNI  Ml) 


C 

C 


TAG 


UR  Ml  ulll  DIE  OlblREO  DATA 


108  WRITE  (Si  110)Si!AME 
MRITE(S»tI5)M£SS 
WR1TE(5»118) 

lie  FORMAT! 'OS'  F.  B.  C,  TRANSLATIONS! ' > 

WRITE<5»125)  X TRANS »Y TRANS iZ TRANS 
UR!TE<5*12©> 

WRITE!5»125)U1 vl  ) ’Ul(2*  »U1 <3) »U1(4) 

NRITE<5*tJ0)VC»HC 
WRlTE(5il33>lER 
WKITE!5»l35>lKESt£f‘5*£fA 
MSI TL  (5»  140) iCOCF  ( 1  > » I  *1 1 10> 

IFiANSl.NE.YFS)  GO  TO  2001 
WRITE!5»145> 

UR1TE(S»  ISO)  (ANGU  >1 )  *AN!>(  l»2)  »DATI!  1 1 1 ) 
ft»MTKI»2>*t«liRM> 

C 

C  FORMAT  STATEMENTS  FOR  PROMPTS  AND  RESULTS 
C 

3  FORMAT <  'IS 'Enter  the  am*  of  the  Joint  tested.  CS-93!  ' ) 

10  F0RHAT(9A1> 

IS  F0RHAT< '4' » 'Enter  the  subject  none  or  nueber.  CS-25J!') 

20  FORMAT (25A1) 

25  FORMAT! 'I  S'CoaAents  on>  or  description  of  test,  t S-803 S ' > 

30  F0RNAT(80A1) 

35  FORMAT!  'IS 'Enter  the  input  data  file  nane.  tS-253!  > 

40  FORMAT! 13A1) 

241  FORMAT! 'IS 'bo  you  want  sinus  data  in  teres  of  theta-phi  and 
I  rho-soiMka  coordinates  issued  as  output?  CY/N3! ' > 

242  F0RMAT!A4) 

110  FORMAT! 'OS 'Shuulder  Joint  Sinus  Analysis  for  Subject  5  S25A1  > 
115  FORMAT!'  S  'Consents!  S80A1//145! )) 

120  F0RMAT!'0  Joint  Center  Coordinates! ST50» 'Sphere  Avs.  Radius  ) 
125  F0RMAT(lXiF7.3»2F9.3»T54»F8»3) 

130  FORMAT!  OS 'Orientation  of  Noreal  for  'Best-Fit*  Plane  VT16» 
I'ThetaST27»  Fhi  /T14»F7.2»T24*F7.2) 

133  FORMAT <  'OS  ’  *1ER*-  ST9*I2) 

135  FORMAT! 'OS  'F»ransion  Coefficients  for  *Ires'  =  S138»I3» 

4T48t  'EPS*ST53.E9,2»U8.  'ETA-  ST73.E9.2/TU .  A1 ' » 

IT28.  •  A2ST44t  A3ST60p 'A4ST7a, 'A5ST92f 'A6ST108» 'A7ST124.  A 
48ST140i'A9STt5di'A10'/> 

140  F0RMATU0E14.5) 

145  FORMAT!  'OS  'Sinus  Data  in  teres  of  Theta-F'hi  Coordinates  and 
i  2-D  Coordinates! '/T10» 'Theta-Phi  U.R.T.  BotlyS 
4  T40t 'Joint  Suite*  Coords.'/) 

150  F0RMAT!Tli*2F8.2»Td0*2F3.2> 

220  FORMAT! 'IS 'Select  EFS  (between  l.E-3  and  l.E-6)  CF9.o3!'> 

221  FORMAT (F9. A) 

230  FORMAT! 'IS ’Select  ETA  (between  1.E0  and  l.E-a)  CF9.63!) 

300  FORMAT! 'IS 'Do  sou  wish  to  create  an  output  data  file  S 
♦  'FOR  THE  BEST-FIT  FUNCTION  VALUES?  CY/N3! ' > 

210  FORMAT! 'IS ‘Enter  the  output  data  file  na*e!  C3-13KS 
320  FORMAT! 'IS ‘Do  you  wish  to  create  a  data  file  contaimna 
4  rho-iaoea  coordinates?  CY/N3!S 


lCf> 


330  FORMAT!  U.v  uuImuI  filv  huM  for  rho*SMM  d*t«l 

4  tS -433J '  i 

/Ou  FORMATlFlO.V..'.  .1  lu.M 
820  FORMAT t4F8, 3) 

2000  FORMAT!  '4'*  'ERROR  ON  AflFMPT  TO  READ  DATA  FILE!  ') 

2001  MRIT£<5*9V> 

VV  FORMAT ! ' FAKE  THIRL  ufHER  FILES  TO  it  PROCESSED  !  CY/N3i  ) 
RE AD! 5,242)  ANSS 
IF<ANS5.E0.fEl>  GO  10  S10 

stop 

END 

c 

c 

I 

i.UDKOUl  INC  ST’HF  1 1  iPIMAl *U»ANG»PTS,KN* 

C 

t  THIS  cAlDROUFINF  1  ALUM  A I  Lb  THt  ‘REST  FIT*  SPHERE  TO  A  SET 
C  01  DATA  POINTS  AND  THEN  OUTPUTS  INFORMATION  ON  THE  SPHERE 

t  AND  ON  THE  REVISED  DA*  A  SET* 

L 

DIMENSION  F(HAI!/2'.I)*F</2mU<4)»FTM?2*3i 
DIMENSION  ANG!72i?)  ,F'VEC!3),G1G!4,4>,F1<4)»GI  (4) 

DIMENSION  G!/-'*4>*GI  \4*72)»frG\4i72)»HlN!3> 

DATA  P/7241 .0/ 
i; 
i: 

>M1N-PIMATU»1» 

TMIN'PIMAT i|,2) 

7MlN~f'IHAT!l»3i 
DO  SO  1-I.RN 

I f  t H MAT 1 1  >  I ) . LI . XM IN )  XMIN-f* « MAT ( I » 1 ) 

II  !l'IMAHI*7).l  I.TMIN)  TMlN*fTMAV(I.2> 

II  •lTMAHI»:t).U.*rtlN)  2HIN=PIMAT(I*3) 

Uw  CONI  1NUE' 

(1*Nv  1  >  -ARStXMlNJ  t  I  »u 
NlN!2>-ADS!YMlN*Fl.o 
MlN(3) =ARS(7MlN)Tl.w 
DU  75  J-l.KM 

I  I Ml*  l )  -FTnAI  v  J*  1  ilMiNv  l ) 

I  l'.«  h.  - PTmAI  i  J,2j INlN!2> 

I  l‘.!J*;!>*PTMAI!.J*3>fMlN!3> 

D1V1-! IPISl J, l > **2>FtF’TS(  J*  2)442) +  (PTS(J»  3)442) ) 
i»\ J*  1  /  !2.u*PTGt.l,l>>/DIVI 
Uv  J*2M!2.0|KT'i!  1,2) >/DIVl 
<:'.0«HS«.!.3>  l/DIVl 
0  <  I  *  4  >  •  (  1  •  0 )  /  D 1 V I 
tilt  |.J)-U<  j,t> 
til  t  .f » .1  /  l»'  I • » 
t>l  ti*Jl-0<J»3) 
til  t  •!*  J»=G(  J»4* 

/  j  iiii.i  tiim. 

im  u-  i=:.i 

Im i  .0  Ml* 4 


u»; 


lilt)  i*l>'=Uvtl 

:0 . „ 

HG  10  j  • »KN 
6161' -!  (I.JXGiJ.K) 

0T0< I »N)=GTG< I »K) +GTGN 
tw  CONTINUE 
CONTINUE 

.»  CONTINUE  ,• 

(ALL  HIN0tGlG»4.D,F t.Gli 

HO  130  1  =  1  *  4 

l>0  120  K=l »KN 

GG( I rk  >=0  .  0 

GGN=0,0 

no  no  j=i»4 

GGN=6T&(I»J'*GT\J*N) 

GG  < I >  K ) =6G > 1 1 K ) +6GN 
110  CONT1ul,r 
120  CONK  ,.A 
130  CONTINUE 

DO  230  1=1 i 4 

U<l/=0.0 

UN=0.0 

DO  220  J=1,NN 
UN=GG<I»J)*F< J> 

U( I )=U( I )+UN 
220  CONTINUE 
230  CONTINUE 

R-SGRTO  <  <U< 1 )*+2>  E<U<2>**2>  +  <U(3>**2>  >-U<4>  > 

D  TYPE  t»'R='.R 
DO  00  1=1, NN 
PTS< 1, 1 )=PTS< 1 , 1 ) -U( 1 ) 

PTP(I.2)=PTS(I,2)-U(2> 

PTS< I >3 *=PTS( I »3) -U(3) 

PTNAG= 5GRT<<PTS< > :» i)**2)+<PTS< I.2)**2>  +  iPlSi >  > 

POEC( 1 )=PTS( I ? 1 i/PTMAG 

PUEC  <  2 ) =PT S  <  1 . 2 1  / PTMAG 

PVtC  <  3 ) =ri S< I » J ) /PThAG 

CALL  SF'HEREtPVEC. THETA. PHI ) 

ANG< I » 1 )=THETA 

ANGi 1 » 2>=PH1 

PT  M  1 . 1 ;  =PC’LC  1 1 1  *K 

No-  i.:;)-=pue:c(2)*r 
P»S<  l,3)=P0L'L  3 > 4R 

80  CUNIINUE 

DU  3-;  1=1  »Kfi 

0  TYPE  *,  ThETA-PHI  ,ANG< 1 . 1 > .ANGi  1 .2) 

8S  CONTINUE 

•<n=U(l)-MlN<l) 

U<2)=U<2)-MIN<  2> 

U<3)=Ui3)-hIN<3) 

U<4)=R 

H  1 YPE  *>  U= '  .1.'  1  >  »U(2i  »Ul3)  »U<  4 » 

RETURN 


c 

C 

c; 

0 

i: 

c 

c. 


LNli 


SUGROUT INE  F'LAF'lTtF  T3*U* KN . THE TA *  PHI  >  i 

THIS  SUBROUTINE  CALCULATES  THE  'BEST  fl  if  V  PLANE  TO  A  SET  Of 
DATA  POINTS  AMD  THE N  OUTPUTS  INFORMATION  OH  THE  OUTWARD 
NORMAL  TO  THAT  PLANE .  ’v  '  t  Jf.  "'f ;  -  ■  t '  • V;  J 

DIMENSION  PTS(72*2) *GT6<3«3)*Ut3)  iPO‘2)  -V;  '  V-? 

DIMENSION  G<  ?2  *  3 ) *GT ( 3  *  72  >  *F 1 <  3 ) *Gl <  3) *  GG vi»;72 )  , 

DATA  P/72H.Q/  ...  /}'?, 


XH(rmSU'l) 

ThIN-PTS( 1  *2> 

.  MIN  I  ISU.3) 

Do  1  w>  1  - 1  *  KN 

il  tPliit  1 . 1  >  .LI .  tMlNi  XMIN  PI  St  1  »l ) 
J  F  t  F I  St  1 , 2  ) .L I . YMIN »  YHIN-FTSt 1*2) 
t  T IPIS \  I  * 3)  ,L1 .  ZrtlNi  CM1N  -1  ISU  *3) 
100  CONTINUE 

DO  12S  J-l *KN 

tu  .]•  1  >;F'Tb(  J*  1  j+ADSi AMlNCT 1 .0 
Gl  J*2r-F IS(J> 2) TABS ( CttlN) FI .0 
G(  J*3  J-PTS(  J»  3)+h£>  j(2MIN)  +  l  *0 
Gl ( 1  * J)-Gl J*1  ' 
til  ( 2*  J)-;G<  J*?) 

(i  1 1  *  .1)  G(  .1*3  i 
C'G  t  ONI  1  NOT 

Do  30  I  I  *  i 
Do  ;  v  K-t*3 
Dim  1*1.)  0.0 


l.fDN-O.u 

DO  Iti  .1-1,  KN 

i •  T I *N  -Gl  1 1  *  J)*ln  J*K ; 

£i  I •  •  •.  1 ,1.  >  -Gl G(  1  * K  )  +  GT GN 
Iv  i.uNT  I  NOT 
20  (ONIINUI 


30  'ONI  I  HUE 

I  ALL  fllHVi 6TG*3*D*f  1  *G1 ) 
DU  130  1-1*3 

Dll  120  K-l*KN 

Uu( 1 *K )  -0.0 


oiifi  -0.0 
In.  1 10  .11*3 
i .1.0  u  I  ii  ( 1  *  J)  to  1 1  J*l\  ’* 
l i  1 1 T. 1  0G(  1  *R)  IGGN 
tin  l.UN  II  NHL 
12V  CONI  1NUE 
130  l.oNlim 

DU  .*  iO  1-1*3 
II  i  '  v.O 


It.’) 


'-3  O  U  fj  O 


■  UN -0.0 

l/f»  220  J-J  '  . 

HN-UM  I * J)*P< J i  . 

Uv  I  ;-U(  I  MUN 
.'20  f.GNUNlir 

.-30  CONTINUE  .  ■*  ...v 

DIV2=SQRT<  <U<  i >**2)+(U<2>*42  >  * \ U <  3 » ♦  ★  2 ) ) 

U< 1 )-U< 1 )/DIV2 
ll(2)=U<2)/»IV:' 

IK  3*-U<3>/DI0.’ 

H  TYPE  ¥*  'U  PLANE  NORMAL- ' »Uv 1 )  *U<  ?■) *U<  3/ 

CALL  SPHERE  (U*THfcTA:*PHI> 

RETURN  ,-T  "■■■■' 

END 

C- 

C 

£ 

SUBROUT INE  FK.1 ( 1 *N*IP*P*DAT1 *WGT *IER> 

THIS  SUBROUTINE  DEFINES  THE  BASIS  FUNCTIONS  FOR  THE  JOINT 
SINUS  EXPANSION*  AND  CALCULATES  THEIR  VALUES  FOR  GIVEN 
VALUES  OF  * GANNA  . 

DIMENSION  F'(  1 1  >  *  DAT  I  ( 72*2)  » IERi 1 ) 

DOUBLE  PRECISION  DATI  *WGT*F'*GAM 
C 

C  CHECK  FUR  FORMAL  ERRORS  IN  SPECIFIED  DIMENSIONS 

IF(N)10»1C>1 

1  IFIN.GT . /‘2>  GO  10  10 
IF< IP)1Q* 10*2 

2  IF(IP.GT.IO)  bO  Tu  10 
C 

IERK  1  )=0 
UGT= 1 .DO 
GAM- DAT  1(1*1* 

P(1 »=1.D0 
P12)=DSIN(GArt> 

Fi3;=0C0S<6AM> 

F'  <  4 )  =  ( DS1 N  < GAM > ) *  I DCOS  <  GAM  > ) 

F  ( 5 )  =  ( DCOS ( GAM ) )  4*2 

P(3)=<dsin(Gam))*((dcos<gam>  )**:-) 

P(7)=(DCOS(6AH)l**3 

F'(6) - iDSlN(GAM) ;*t  < DCOS (GAM) )443) 

F'<9)  =  <0CQS\GAh))U4 
PI  10>-(DSIN(GArt>  Ji< IDCOSIGAMi >4*4) 

P(ll *=DATI (1*2* 

GO  TO  IS 
10  1  Eft  ( 1 )  ~  1 
IS  RETURN 
END 

t 


170 


c 

c 

c 


til JBK'O JT 1NE  SPHERE i b, THETA. PHI > 


SUBROUTINE  TO  CAi.CUl.ATE  THE  SPHERICAL  COORDINATES  < THETA. PHI) 


OF  THE  UNIT  VECTOR  D. 


10 

26 

C 

C 


It. 


35 


DIMENSION  Et( 3 ) 

DATA  PI/3.1415924547 
rtl-SOKV <B< 1 )**2+D(2)*42 ) 

THE! A* (ATAN2< At. B<  3) ) >*lflO.O/P I  1 
IF( T HETA. LT. 179. 99. OR. THETA. GT. 0.01 )  60  TO  10 
PH1>0.0 
liO  TO  20 

PHl*<ATAN2<»tI)»B<l)))*180.0/FI'  :  V 

RETURN  "...  ■  ■ 

EN It  ,  '■4.  .  1  r..:  . 


SUBROUTINE  OUTPUT ( COEF.OUTDAT.KN>. 


. DlrtKNSIOH  COEF (10)  .OUTDAT (120.2) .R(  10) 

INTEGER  £X(  10. 2)  ;  : 

DOUBLE  PRECISION  CQEF.F I .DEG2.R»6AH»RT.KX»Rt 
DATA  Fl/3. 141592453589793100/ 

DATA  EX/0. 1.6. 170.1.0.1. 0.1. 0.0.1.1i*2.2»3.3. 4. >4/ 
D£63=3 . ODOilPI / 1 80 . ODO )  . 

(>AKrO.ODO  . 

DO  35  >1.126 
GAM=6Aft+DEG3 
DO  15  1*1.10 
ft  £  / <  1 . 1 » 

A  I.X(I«2) 

if i  I )  sCOEF  ( 1 ) *  <  DSIN  ( GAN )  4*N )  $  < OCOSi  GAh  >**H) 

Cunt i hue 

l;T*KUfPR(2)TR(3>TR<4)4R<5)+R<6)ER<7)4R<8)*R(9)+R<10) 
UUTDAT ( J . 1 ) =SNGL ( GAH ) 

OUTDAT  <J«  2 )=SNGE<RT ) 

CONI INUE 
Kh TURN 
END 


17  1 


REFERENCES 

Beckett,  R.  and  Chang,  K.  (1968)  An  Evaluation  of  the  Kinematics  of  Galt 
by  Energy,  journal  of  Biomechanics,  vol.  l,  pp.  147-159. 

Berzteiss,  A.T.  (1964)  "Least-Squares  Fitting  of  Polynomials  to 
irregularly  Spaced  Data,"  SIAM  Review,  Vol.  6,  NO.  3,  pp.  203-227. 

Chao,  B.Y.S.,  et  al.  (1970)  The  Application  of  4  x  4  Matrix  Methods  to 
the  Correction  of  the  Measurements  of  Hip  Joint  Rotations.  Journal  of 
Biomechanics,  Vol.  2,  pp.  459-471. 

Chajo,  E.Y;  and  Morrey,  B.F.  (1978)  Three-Dimensional  Rotation  of  the 
Elbow.  Journal  of  Biomechanics,  Vol.  11,  pp.  57-73. 

Chao,  E.Y.,  jAn,  K.N.,  Askew,  L.J.,  and  Morrey,  B.F.  (1980) 
Electrogoniometer  for  the  Measurement  of  Human  Elbow  Joint  Rotation. 
Journal  of  Biomechanical  Engineering,  Vol.  102,  pp.  301-310. 

Clayson,  S.J.,  et  al.  (1966)  Goniometer  Adaptation  for  Measuring  Hip 
Extension.  Archives  of  Physical  Medicine,  Vol.  47,  pp.  255-261. 

Dempster,  S.T.  (1955)  The  Anthropometry  of  Body  Motion.  Annals  New  York 
Academy  of  Sciences,  Vol.  63,  pp.  559-585. 

Dempster,  S.T.  (1965)  Mechanism  of  Shoulder  Movement.  Arch.  Phys.  Med. 
Rehab.  (46),  pp.  49-70. 

Engin,  A.E.  (1980)  On  the  Biomechanics  of  the  Shoulder  Complex.  Journal 
of  Biomechanics,  Vol.  13,  No.  7,  pp.  575-590. 

Engin,  A.E.  (1984)  On  the  Damping  Properties  of  the  Shoulder  Complex. 
Journal  of  Biomechanical  Engineering,  Vol.  106,  pp.  360-363. 

Engin,  A.E.,  Peindl,  R.D.,  Berme,  N.,  and  Kaleps,  I.  (1984a)  Kinematic 

and  Force  Data  Collection  in  Biomechanics  by  Means  of  Sonic  Emitters  -  I: 
Kinematic  Data  Collection  Methodology.  Journal  of  Biomechanical 
Engineering,  Vol.  106,  pp.  204-211. 

E sgin,  A.E. ,  Peindl,  R.D.,  Berme,  N.,  and  Kaleps,  I.  (1984b)  Kinematic 

and  Force  Data  Collection  in  Biomechanics  by  Means  of  Sonic 
Emitters  -  II:  Force  Data  Collection  and  Application  to  the  Human 

Shoulder  Complex.  Journal  of  Biomechanical  Engineering,  vol.  106,  pp. 

212-219. 

Engin,  A.E.  and  Peindl,  R.D.  (1985)  "Passive  Resistive  and  Damping 
Properties  of  Human  Shoulder  Complex,"  AFAMRL-TR-84-051. 

Engin,  A.E.  and  Peindl,  R.D.  (1986)  On  the  Biomechanics  of  Human  Shoulder 
Complex  -  I:  Kinematics  for  Determination  of  the  Shoulder  Complex  Sinus. 
Journal  of  Biomechanics,  Vol.  19,  (in  print). 

Fleck,  J.T.  (1975)  Calspan  3-D  Crash  Victim  Simulation  Program. 
Proceedings  Symposium  on  Aircraft  Crashworthiness,  University  Press  of 
Virginia,  Charlottesville. 


Gray* a  Anatomy  (1973)  35th  British  edition  (edited  by  Narwick,  t.  and 
Williams,  pTl7),  h.b.  Saunders,  Philadelphia. 

Hatse,  H.  (1980)  A  Mathematical  Model  for  the  Computational  Determination 
of  Parameter  Values  of  Anthropomorphic  Segments.  Journal  of  Biomechanics, 
Vol.  13,  Ho.  10,  pp.  833-843. 

Herron,  R.E.  (1974)  Experimental  Determination  of  Mechanical  Features  of 
Children  and  Adults.  D.O.T.  Report,  No.  DOT-HS-231-2-397. 

Huston,  R.L.,  Hessel,  R.E.,  and  Passerello,  C.E.  (1974)  A  Three- 
Dimensional  Vehicle-Man  Model  for  Collision  and  High  Acceleration 
Studies.  SEA  Paper  No.  740275. 

Johnston,  R.C.  and  Smidt,  G.L.  (1969)  Measurement  of  Hip  Joint  Motion 
during  Motion  Walking.  The  Journal  of  Bone  and  Joint  Surgery,  Vol. 
51-A,  pp.  1083-1094. 

King,  A. I.  and  Chou,  C.C.  (1976)  Mathematical  Modeling,  Simulation  and 
Experimental  Testing  of  Biomechanical  System  Crash  Response.  Journal  of 
Biomechanics,  Vol.  9,  pp.  301-317. 

Kreyszig,  E.,  (1972)  Advanced  Engineering  Mathematics,  3rd  Edition,  John 
Wiley  and  Sons,  Inc. 

Lamoreux,  L.W.  (1971)  Kinematic  Measurements  in  the  study  of  Human 
Walking.  Bulletin  of  prosthetics  Research,  pp.  3-84. 

McConville,  J.T.,  Churchill,  T.D.,  Kaleps,  I.,  Clauser,  C.E.,  and  Cuzzi, 
J.,  (1980)  "Anthropometric  Relationships  of  Body  Segments  and  Body 
Segment  Moments  of  Inertia."  AFAMRL  Report,  No.  TR-80-119,  December 
1980. 

Neter,  J.,  Wasserman,  W.,  and  Kutner,  M.H.  (1985)  Applied  Linear 
Statistical  Models.  Second  Edition,  Richard  D.  Irwin,  Inc.,  Homewood, 
Illinois. 

Norkin,  C.C.  and  Levangie,  P.K,  (1983)  Joint  Structure  and  Function;  a 
Comprehensive  Analysis,  F.A.  Davis  Company,  Philadelphia. 

Paul,  J.P.  (1965)  Forces  Transmitted  by  Joints  in  the  Human  Body. 
Proceedings  of  the  Institution  of  Mechanical  Engineers,  Vol.  181,  pp. 
369-380. 

Robbins,  D.H.,  Bennett,  R.O.,  and  Bowman,  B.M.  (1972)  User-Oriented 
Mathematical  Crash  Victim  Simulator.  Proceedings  of  the  16th  Strapp  Car 
Crash  Conference,  pp.  128-148. 

SAS  User's  Guide,  1982  Edition.  SAS  Institute  Inc.,  Cary,  North 
Carolina. 

Saunders,  J.B.,  Inman,  V.T.,  and  Eberhart,  H.D.,  (1953)  The  Major 
Determination  in  Normal  and  Pathological  Gait.  The  Journal  of  Bone  and 
Joint  Surgery,  Vol.  35-A,  pp.  75-96. 


174 


Steindler,  A.  (1973)  Kinesiology  of  the  Human  Body.  Publisher t 
Charles  C.  Thomas,  Springfield,  Illinois. 

Buh,  C.H.  end  Radcliffe,  C.M.  (197S)  Kinematics  and  Mechanisms  Design. 
John  Wiley  and  Sons,  Inc. 

Youa,  ¥.,  Dryer,  R.F.,  Thambyrajah,  K.,  Platt,  A.E.,  and  Sprague,  R.L. 
(1979)  Bloaechanical  Analyses  of  forearm  Pronation  -  Supination  and  Elbow 
Flexion-Extension.  Journal  of  Biomechanics,  Vol.  12,  pp.  245-255. 

Young,  R.D.  (1970)  A  Three-Diaensional  Mathematical  Model  of  an 
Automobile  Passenger.  Texas  Transportation  Institute  Research  Report 
140-2. 


175 


•.  HfllNhNG4»rn.f  WH/  .  HH-lim/40/' 


